ShimaBlock for VBAの操作サンプルです。
ExcelVBAのシート関連コードを生成します。

Sub Main()
    Dim ws As Worksheet

    Set ws = ThisWorkBook.ActiveSheet
End Sub

Sub Main()
    Dim ws As Worksheet

    Set ws = ThisWorkBook.Worksheets("Sheet1")
End Sub

Sub Main()
    Dim ws As Worksheet

    Set ws = ThisWorkBook.Worksheets(1)
End Sub

以下のサイトのコードを参考に、ShimaBlock for VBAでコーディングしてみました。
VBA（エクセルマクロ）でよく使うコードまとめ