Sub Withについて()

    With Worksheets("Sheet1") 'ここに省略したい内容
    
        .Range("A1") = "a" '先頭に[.]を入れると、Worksheets("Sheet1").Range("A1") = "a"
        .Range("A2") = "b"
        .Range("A3") = "c"
        
    End With

End Sub