Cant Freeze the top row using vba 1

[vba317]

I am using access 2003. I have written a module that I am calling from another sub to freeze the top row. There are no errors but the row does not freeze. Any help would be appreaciated.

module

'
First module
Public goXL As Excel.Application ' The Excel Object variable

Second module
Public Sub XLFormatFreezeTopRow()

' ****************************************************
' *** THIS SUB FREEZES THE TOP ROW *******************
' ****************************************************
    Range("A2").Select
    goXL.ActiveSheet.Range("A2").FreezePanes = True
 

End Sub

Call statement from original sub

Call XLFormatFreezeTopRow

 

[PHV]

What about this ?
goXL.ActiveSheet.Range("A2").Select
goXL.ActiveWindow.FreezePanes = True

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

 

[vba317]

PH thanks once again