Dynamically Change an ActiveX Label Caption based on the Value of another Cell

[JohnGow383]

I have a very simple label that reads a date from a hidden cell in the sheet. The hidden cell is AB1. I am having trouble trying to get the caption of ActiveX Label1 to change value when the value of AB1 changes.
This is really quite easy with UserForms but with ActiveX I don't see any easy options. I can get it to change by clicking or moving mouse over but that's not what I want.

This is the code I've tried within a Worksheet_Change module.

  'Dynamically change ActiveX Label1 Caption to match cell value of AB1
    
    Dim MyLabel As OLEObject
    Set MyLabel = Sheet1.OLEObjects("Label1")
    
    If Not Intersect(Target, Sheet1.Range("AB1")) Is Nothing Then
          MyLabel.Object.Caption = Format(Target.Value, "mmm d, yyyy")
    End If
    
End Sub

Any help much appreciated. Thanks

 

[JohnGow383]

I have also tried using this code as it works for caption of an ActiveX command button but it doesn't work either

Dim xShapeRg As ShapeRange, xStr As String
    On Error Resume Next
    If Not Application.Intersect(Target, Range("AB1")) Is Nothing Then
        Sheet1.Label1.Caption = Format(Target.Value, "mmm d, yyyy")
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("Label1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
      
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 Dim xStr As String
 If (Not Intersect(Target, Range("AB1")) Is Nothing) And Target.Value <> "" Then
        xStr = Target.Text
    End If
End Sub

 

[JohnGow383]

I fixed it. It was the placement of the code within the worksheet module in relation to other code. Also, the object was not named properly. This was the final solution.

 If Not Intersect(Target, Range("AB1")) Is Nothing Then
    Sheet1.Label1.Object.Caption = Format(Sheet1.Range("AB1").Value, "mmm d, yyyy")
 End If