0184デフォルトの名無しさん (ワッチョイ bf6d-U373)垢版 | 大砲2017/07/09(日) 21:45:51.77ID:XJb9KLmK0 >>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