アクティブシートにするには for VBA

ExcelVBAでシートをアクティブにするには以下の感じです。

Sub getActivateSheet(sheetName As String)
   Dim sheet As Worksheet

   Set sheet = Worksheets(sheetName)
   sheet.Activate
End Sub

Sub MacroX()
   getActivateSheet ("シート名")
End Sub

『Worksheets(sheetName)』でシートオブジェクトを取得し、『sheet.Activate』でシートオブジェクトのActivateメソッドを起動する。