Hi all,
Here is my code for checking if a workbook is open; unfortunately, it is failing on the second Set line below:
Code
Dim LastRow As Long, wb As Workbook, WbookCheck As Workbook, fd As Office.FileDialog, MsgStr, sFile As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
On Error GoTo ErrorHandler:
Set WbookCheck = Workbooks("Job Expenditure Review.xlsm")
When using F8 scrolling through the procedure, the variable WbookCheck is Nothing, and that is why it is failing.
It was working before, so I think I must not have something in the right order - and cannot remember what order they were in before, LOL.
Can someone see my mistake?