Может ли вам помочь следующий макрос?
Sub activateSheet(sheetname As String)
'activates sheet of specific name
Worksheets(sheetname).Activate
End Sub
В основном вы хотите использовать функцию .Activate.Или вы можете использовать функцию .Select следующим образом:
Sub activateSheet(sheetname As String)
'selects sheet of specific name
Sheets(sheetname).Select
End Sub