水平改ページのあるセルのアドレスを取得します。 Sub Sample84() Dim C As HPageBreak For Each C In ActiveSheet.HPageBreaks MsgBox C.Location.Address Next C End Sub