Range("B2").Select
    ActiveWindow.FreezePanes = True