Here is what I tried (unsuccessfully), in the 'ThisWorkbook' object:
Code: Select all
Private Sub Workbook_Open()
If Sheets ("Raw_Data").Range("B3").Value = Null Then
Sheets("Raw_Data").Select
Range("B3").Select
Else
Sheets("Menu").Select
Range"B3").Select
End If
End Sub