Sub TEST1() Dim TestRange As Range Dim Result As String Set TestRange = Worksheets("Sheet1").Cells(1, 1) '(1)引数無し Result = TestRange.Address Call MsgBox(Result, , "引数無し") '(2)RowAbsolute引数を設定 Result = "True : " & TestRange.Address(RowAbsolute:=True) & vbCrLf & _ "False : " & TestRange.Address(RowAbsolute:=False) & vbCrLf Call MsgBox(Result, , "RowAbsolute引数を設定") '(3)ColumnAbsolute引数を設定 Result = "T