Sub ActivateWorkbook1()
Dim sFullName As String
Dim sFileName As String
Dim myWorkbook As Workbook
sFullName = "C:\Data\SalesData1.xlsx"
sFileName = sGetFileName(sFullName)
If bIsWorkbookOpen(sFileName) Then
Set myWorkbook = Workbooks(sFileName)
myWorkbook.Activate
Else
Set myWorkbook = Workbooks.Open(FileName:=sFullName)
End If
End Sub
|