Sandra Smith
asked on
Check if worksheet exists in another open workbook
My process so far checks to see if another workbooks is open and it if is not, then it opens. Ok, so far so good. However, next I need to check in this workbook if the worksheet "DataSource" exists and if not, create it. I can't get pass the checking for the worksheet. It errors out at the If Len(.worksheets("DataSourc e).Name > 0 Then statement.
'First check to see if the file is open and if not, then open. Then check to see if the
'worksheet DataSource exists in the workbook and if not, create it. Then query the
'ActiveMasterTempate DataSource worksheet to bring in the Rating data
Dim wks As Worksheet
Dim strColumnHeaders() As String
strFileExportPathSumm = ThisWorkbook.Worksheets("Settings").Range("FOLDER_PATH_SUMMARY") ' Summary Reports/General Folder, Range name on Settings worksheet, Settings!$I$5
If Not fntIsWbkOpen("TEST_ClientActiveMasterTemplate.xls") Then
Application.Workbooks.Open strFileExportPathSumm & "TEST_ClientActiveMasterTemplate.xls", 2
End If
With Workbooks("TEST_ClientActiveMasterTemplate.xls")
.Activate
If Len(.Worksheets("DataSource").Name) > 0 Then 'Subscrpt out of range nere
MsgBox "Yes"
Else
MsgBox "No"
End If
End With
ASKER CERTIFIED SOLUTION
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
ASKER
Sandra