Maybe you can just loop through your pagebreaks:
Dim hPB As HPageBreak
For Each hPB In ActiveSheet.HPageBreaks
'just for testing
'MsgBox hPB.Location.Address
hPB.Location.Offset(1, 0).Value = "Your Fund Variable"
Next hPB
"keith2816 <" wrote:
I have some idea but not complete cos I do not know all the codes.
I was think to insert the following macro to find the location of the
page break since my current macro will insert page break automatically
e.g.Sub Check_PageBreak()
Dim i As Integer, BreakType As Integer
BreakType = ActiveCell.EntireRow.PageBreak
If BreakType = xlAutomatic Then
?????
End if
End Sub
But i will need another code to insert the fund name at the top of the
row for each page break
---
Message posted from http://www.ExcelForum.com/
--
Dave Peterson