Freeze Panees VBA

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .FreezePanes = True
End With
S3NS4