Code to change caption of labels

[Bandito1]

Hello all,

Im using the following code to change the caption of labels

rivate Sub Label5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim stCaption As String


    stCaption = InputBox("Add new caption", , Label5)
        If stCaption = vbNullString Then Exit Sub
        Label5 = stCaption
End Sub

But when i close the userform and reopen it, the caption resets. The new value isn't stored.
Anyone knows how i can automatically save the new caption after i changed it?

 

[Trebor76]

Hi Bandito1,

You need to store the value in a cell that can be referred to - I have used cell A1 of Sheet1 in the following example (change to suit):

Option Explicit
Private Sub UserForm_Initialize()

    'Sets the value for 'Labe15' from cell A1 of 'Sheet1'. Change to suit.
    Label5.Caption = Sheets("Sheet1").Range("A1").Value
    
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim stCaption As String
    
    stCaption = InputBox("Add new caption", , Label5)
    
    If stCaption = vbNullString Then Exit Sub
    
    'Sets the value for 'Labe15' from cell A1 of 'Sheet1'. Change to suit.
    With Sheets("Sheet1").Range("A1")
        .Value = stCaption
        Label5.Caption = .Value
    End With
    
End Sub

Regards,

Robert

 

[Bandito1]

Hello Robert,

Thanks for your reaction. totally forget to reply.

It works perfectly, thank you very much!

 

[Trebor76]

Thanks for letting us know and you're welcome