Cells.Find(What:="Security ID", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
Columns(ActiveCell.Column).Select
ActiveWindow.FreezePanes = True


*If that doesn't wory, check your spelling of Security, not sure if you
copied and pasted it but there was a spelling mistake!

Cheers