うんこ軍団　ver1.03

＞チーママ
これをコピペしてみろよ
おもしろいぜぇ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Range("A1"＠｀ "A100") = "ちんこ"
End Sub