VBA to Move a Text Box Based on Values in a Column

[cstepp]

I have Text Boxes that I would like to move based on the values in Column A. The values in Column A change as new data is added. What I would like is for the Text Boxes to move the correct row based on the value in Column A. The lookup values for Column A will come from a Named Range/Table. To help clarify, I have names in Column A with new names added regularly that are sorted alphabetically. I have a separate list of some of those names that have a Text Box(es) associated with it. As the new names are added, I would like the text box(es) to move with the name. The The Text Boxes are in Columns for eg. E & F. The reason I am using Text Boxes is because the data itself is in a Pivot table. As the Pivot Table grows with new names, I want the Text Boxes to follow.

 

[cstepp]

So I got the textbox to move to a specified column and row, which I set manually for now. Now I need to search for names in a range and move the textboxes to the corresponding row where those names exists in column 1.

Sub MoveTextBox()
    Dim ws As Worksheet
    Dim textBox As Shape
    Dim targetRow As Integer
    Dim targetColumn As Integer
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    targetRow = 5 ' Change to the desired row number
    targetColumn = 6 ' Change to the desired column number
    
    Dim leftPos As Double
    leftPos = ws.Cells(targetRow, targetColumn).Left
    
    Dim topPos As Double
    topPos = ws.Cells(targetRow, targetColumn).Top
    
    On Error Resume Next
    Set textBox = ws.Shapes("TextBox1")
    On Error GoTo 0
    
    If Not textBox Is Nothing Then
        
        With textBox
            .Left = leftPos
            .Top = topPos
          End With
    Else
        MsgBox "Text box not found."
        
    End If
End Sub