Attribute VB_Name = "testcellcomment1"
Sub テスト()

    Dim range1 As Range
        
    Set range1 = Range("B2")
    range1.AddComment Text:="2006年9月度"
    
End Sub