Trying to freeze heading rows on a sheet

[JonWestcot]

Hi all:

I'm trying to programatically freeze the heading rows on a particular
worksheet via a VBA program. All columns across the sheet should be frozen
so that, as I scroll up and down, the headings remain in place.

I know this involves a Pane object, but I can't seem to create one
programatically.

Can someone suggest a way to implement this where the row is variable yet it
encompases all the columns?

Thanks for any assistance you can send my way!

Jon

 

[Joshua Fandango]

Hi Jon,

I had trouble doing it without selecting a cell:

Sub Freeze_Columns()
Dim rVariableRange As Object
ActiveWindow.FreezePanes = False
Set rVariableRange = Range("a4")
rVariableRange.Select
ActiveWindow.FreezePanes = True
End Sub

Hope it helps,
JF

 

[Stefi]

Try something like this:

NoofRowstoFroze = 1
Range("A" & NoofRowstoFroze + 1).Select
ActiveWindow.FreezePanes = True

Regards,
Stefi


„JonWestcot†ezt írta:

 

[JonWestcot]

Thanks, Stefi, for the reply. Much appreciated!

Jon

 

[JonWestcot]

Hi Joshua:

Thanks for the reply. Much appreciated!

Jon


Hi Jon,

I had trouble doing it without selecting a cell:

Sub Freeze_Columns()
Dim rVariableRange As Object
ActiveWindow.FreezePanes = False
Set rVariableRange = Range("a4")
rVariableRange.Select
ActiveWindow.FreezePanes = True
End Sub

Hope it helps,
JF

 

[Stefi]

You are welcome! Thanks for the feedback!
Stefi

„JonWestcot†ezt írta: