Return Freeze panes location

trevorc · #4 09-18-2018, 01:22 PM

Turns out it was easy,

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Default location for the Office Document Cache Server drafts location.	dianahbr	Office	0	03-02-2018 12:37 PM
Return to previous location in Word 2016	stevelsd	Word	2	09-30-2017 06:18 AM
How to Customize Outlook Panes	Steve_B	Outlook	0	07-08-2014 09:05 AM
Freeze more than just the top row, or first column	Gary Drumm	Excel	4	07-23-2013 11:34 AM
Outlook 2007 win7x32 Archive location/backup location question	michael.monaco	Outlook	0	11-19-2012 02:07 PM