Sub シートを選択する()

    Worksheets("Sheet2").Select

End Sub

Selectは重いので、極力Activateで済むならこっちを使うべき シートが非表示の場合はSelectは使えずActivateを使う必要があり