Code not working

[dcompagnone]

Hi Professionals,

Can anyone point out why my tab caption is not updating:

Private Sub CommandButton1_Click()

With ProjectContacts.MultiPage1.Pages(0).Caption = ActiveSheet.Cells(9, 3).Value

End With

Unload Me
End Sub


Thanks
Dom

 

[AlphaFrog]

Try something like this...

Private Sub CommandButton1_Click()
ProjectContacts.MultiPage1.Pages(0).Caption = ActiveSheet.Cells(9, 3).Value

Unload Me
End Sub

 

[bobsan42]

remove With and End With

 

[dcompagnone]

Thanks for replying to this again Bob.

I forgot to remove this. It was an accidental duplication of my previous post!