How to Freeze and Unfreeze pane using VBA

 Please paste these lines in VBA macro.

    'To Freeze Panes activate
    Worksheets(DestWS).Activate
    ActiveWindow.FreezePanes = False
    Range("H9").Select 'Temp
    ActiveWindow.FreezePanes = True