Here’s a IsWorkbookOpen function to check if a workbook is open or not. Returns TRUE or FALSE
‘check if its already opened in the Windows collection
For Each Wb In Workbooks
If Wb.Name = wkbkname Then IsWorkbookOpen = True
GoTo exitsub
Next Wb
End Sub
Here’s a IsWorksheetOpen function to check if a worksheet is open or not. Returns TRUE or FALSE
Dim wk As Worksheet
For Each wk In Worksheets
If wk.Name = wsname Then
IsWorksheetOpen = True
GoTo exitsub
End If
Next wk
exitsub:
End Function
that worked