Thread: [Solved] Return Freeze panes location
View Single Post
 
Old 09-17-2018, 03:53 PM
trevorc trevorc is offline Windows 7 32bit Office 2013
Competent Performer
  
Join Date: Jan 2017
Posts: 174
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default Return Freeze panes location
Hi All, another quandary. Is it possible to return the location of were the freeze panes was set. E.G. If I select say "D4" and freeze the panes, can I use VB to get that location so I can do something different than if the freeze panes was at say "G5".
What I'm trying to do is set the turn on/off the freeze panes via a button click, but want to always keep the top 2 rows frozen. the 2 states would be freeze panes at "3:3" or freeze panes "H4"
Here's my code so far...
Code:
Sub Freeze_Panes()
       curcel = ActiveCell.Address(0, 0)
    If ActiveWindow.FreezePanes = True Then
       ActiveWindow.FreezePanes = False
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Freeze" & vbCrLf & "Pane"
    Else
       Range("H4").Select
       ActiveWindow.FreezePanes = True
       ActiveSheet.Shapes("FP").TextFrame.Characters.Text = "Un-Freze" & vbCrLf & "Pane"
   End If
       Range(curcel).Select                 'select original cell
End Sub
Reply With Quote