>>183
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Debug.Print Sh.Range("a1").Address
End Sub

$A$1
が返ってきたわ

http://stamp-uploda.com/src/file7301.jpg