Freeze pane

[Guest]

I have a macro in which I want to freeze panes. The problem is that I do not
know how to write it variably. I want to freeze panes in the column where I
find a certain word. The code is:

Set rng2 = Worksheets("Beräkning").Cells.Find("Security ID", LookIn:=xlValues)
......
Columns(rng2.Address).Select
ActiveWindow.FreezePanes = True

The penultimate line is wrong but I do not know how write it. Please help me
out!

 

[Guest]

Hi Nick,

If you want to freeze just before column containing "Security ID" (and no
rows at all):

freezecol = Worksheets("Beräkning").Cells.Find("Security ID",
LookIn:=xlValues).Column
' .....
Cells(1, freezecol).Select
ActiveWindow.FreezePanes = True

Regards,
Stefi

„Nick London†ezt írta:

 

[Guest]

Thanks, it lokks like a good code but I cannot get it to work. I wrote the
code like:

Dim freezecol As Range
Set freezecol = Worksheets("Beräkning").Cells.Find("Security ID",
LookIn:=xlValues).Column
Cells(1, freezecol).Select
ActiveWindow.FreezePanes = True

But if I write that code the program just stops and does not run anymore
code. No error message is given. Do you have any idea? Thanks!


"Stefi" skrev:

 

[Guest]

Hi Nick,

freezecol is Not a Range but a Long standing for column number: 1 for column
A, 2 for column B, etc.
Cells(1, freezecol) refers to the cell at intersection of row 1 and column
"freezecol".

Leave the code as it was and it will work.

Regards,
Stefi


„Nick London†ezt írta: