Server exception error 1

[vba317]

I am running an access 97 database. I am getting a server exception error on the line .HPage breaks.add Before:ActiveCell. Highlighted in Blue. Any help would be appreciated.

 ' *** ADD PAGE BREAK
                If Not rst.EOF Then
                    If (iPageBreakCount = 2) Then
                        With goXL.Sheets("Executive Summary")
                            .Cells(iRow, 1).Select
               [Blue]       .HPageBreaks.Add Before:=ActiveCell  [/Blue]
                        End With
                        iPageBreakCount = 0
                    End If
                End If
            Next Z
        End If
        rst.Close
        Set rst = Nothing

 

[PHV]

I'd use this:
.HPageBreaks.Add Before:=[!].[/!]ActiveCell

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PHV]

Furthermore, why select ?

With goXL.Sheets("Executive Summary")
  .HPageBreaks.Add Before:=.Cells(iRow, 1)
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Andrzejek]

Furthermore, why With?
[tt]
goXL.Sheets("Executive Summary").HPageBreaks.Add Before:=.Cells(iRow, 1)
[/tt]



Have fun.

---- Andy

 

[PHV]

Andy, without With, you should write this:
goXL.Sheets("Executive Summary").HPageBreaks.Add Before:=goXL.Sheets("Executive Summary").Cells(iRow, 1)

 

[Andrzejek]

Ooops, sorry. Missed that one

Have fun.

---- Andy