Command Button Rename

[imback2nite]

This should be easy but... For some reason I cannot rename Command Button 10. It is in a frame on a Userform. I don't know if that makes a difference. I'm using Windows 10 and Excel 2003. Thank You!!!

Private Sub CommandButton10_Click()
    ActiveSheet.Unprotect
     If ActiveWindow.FreezePanes = False Then
        ActiveWindow.FreezePanes = True
              Me.CommandButton10.Caption = "Freeze Pane"
    ElseIf ActiveWindow.FreezePanes = True Then
        ActiveWindow.FreezePanes = False
              Me.CommandButton10.Caption = "Unfreeze Pane"
    End If
     Unload UserForm2
     ActiveSheet.Protect
End Sub

 

[Micron]

That code is in the userform module, yes? I would think you'd have to activate the sheet, otherwise the active window is likely the userform where you're clicking the button. Odd though, in that you didn't mention an error so maybe that's not it. BTW, you're not trying to change the button name, you're trying to change its caption, and there is a difference.

 

[imback2nite]

That code is in the userform module, yes? I would think you'd have to activate the sheet, otherwise the active window is likely the userform where you're clicking the button. Odd though, in that you didn't mention an error so maybe that's not it. BTW, you're not trying to change the button name, you're trying to change its caption, and there is a difference.

Yes. The code is in the user form module. There is no error message. As a matter of fact, the code works in so far as the panes freeze if unfrozen and unfreezes if frozen. It's just the caption that doesn't change. It's not not monumental if it doesn't but it would be nicer if it did.

That code is in the userform module, yes? I would think you'd have to activate the sheet, otherwise the active window is likely the userform where you're clicking the button. Odd though, in that you didn't mention an error so maybe that's not it. BTW, you're not trying to change the button name, you're trying to change its caption, and there is a difference.

 

[Micron]

I tested your code and it works as is for me but I'm on a newer version. The If's seem to be backwards though. One possible solution if you can't get it to work would be to manually set the caption to "Cycle Freeze Pane" as it's kind of obvious as to when the setting is or is not in effect.

 

[imback2nite]

I tested your code and it works as is for me but I'm on a newer version. The If's seem to be backwards though. One possible solution if you can't get it to work would be to manually set the caption to "Cycle Freeze Pane" as it's kind of obvious as to when the setting is or is not in effect.

If I select or right-click the button and select Properties, would I be able to leave the caption blank? In the Caption box I have Freeze Pane.

 

[Micron]

Don't know. You could answer that by testing? In certain cases in Access there is an automatic form caption if the caption option is left blank. I found that entering a single space character in the property sheet for that setting gets rid of the form caption. You could try that too for your button if your idea doesn't work.