I am trying to update a text box containing a date from an excel macro. I have potentially thousands of templates with this specific text box with the object name "TEST". I have not set a named value on these as I didn't know this was a possibility. Is there a way to change the value in the textbox or set the named value in it or replace it entirely with a new text box with the same name as other date ranges refer to this for calculations?

Below is the code I have to open templates from a range in excel.

Sub Open_Relabel_Tags()

Dim BtApp As BarTender.Application
Dim BtFormat As BarTender.Format

Set BtApp = CreateObject("Bartender.Application")

For i = 3 To Worksheets("Sheet1").Range("R2")
    Set BtFormat = BtApp.Formats.Open(Worksheets("Sheet1").Range("E" & i), False)
    BtApp.Visible = True
Next
    
End Sub

I'd appreciate any help.