Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Activate Workbook

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