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