Sub Freeze_Panes() 'button click macro to freeze panes at row 4 and col A or Col H
    If ActiveWindow.SplitColumn = 7 Then
       ActiveWindow.SplitColumn = 0
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Freeze" & vbCrLf & "Pane"
    Else
       ActiveWindow.SplitColumn = 7
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Un-Freze" & vbCrLf & "Pane"
   End If
       ActiveWindow.FreezePanes = True
End Sub