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