loop through concatenated object names and variables

[TYork]

So I have the following code which works:

    SL_TB1.ControlSource = "Calculations!AG3"
    SL_TB2.ControlSource = "Calculations!AG4"
    SL_TB3.ControlSource = "Calculations!AG5"
    SL_TB4.ControlSource = "Calculations!AG6"
    SL_TB5.ControlSource = "Calculations!AG7"
    SL_TB6.ControlSource = "Calculations!AG8"
    SL_TB7.ControlSource = "Calculations!AG9"
    SL_TB8.ControlSource = "Calculations!AG10"
    SL_TB9.ControlSource = "Calculations!AG11"
    SL_TB10.ControlSource = "Calculations!AG12"
    SL_TB11.ControlSource = "Calculations!AG13"
    SL_TB12.ControlSource = "Calculations!AG14"
    SL_TB13.ControlSource = "Calculations!AG15"
    SL_TB14.ControlSource = "Calculations!AG16"
    SL_TB15.ControlSource = "Calculations!AG17"
    SL_TB16.ControlSource = "Calculations!AG18"
    SL_TB17.ControlSource = "Calculations!AG19"
    SL_TB18.ControlSource = "Calculations!AG20"

I'd like to simplify this but can't seem to figure out how. So far I have the following code which DOES NOT work.

For Count = 1 To 18
    
    SLTextbox = "SL_TB" & Count
    SLControlSource = "Calculations!AG" & Count + 2
    
    SLTextbox.ControlSource = SLControlSource
    
    Next Count

Any help would be appreciated, thanks.

[6StringJazzer]

I think something like this should work but to test it out I would need to know where are your text boxes--in a worksheet, or on a form? And are you using ActiveX or Form controls?

   Dim c as Object
   For Each c In Me.Controls
      If Mid(c.Name, 1, 5) = "SL_TB" Then
         i = Mid(c.Name, 6)         
         c.ControlSource = Range("Calculations!AG" & i + 1)
      End If
   Next c

[TYork]

The textboxes are on a userform and I am using activex controls.

[TYork]

Your original code works, although "Range()" need to be removed from around "Calculations!AG" & i + 1

Thanks for your help

[6StringJazzer]

Your original code works, although "Range()" need to be removed from around "Calculations!AG" & i + 1

Thanks for your help

Sorry for the glitch. I did a generic test and not one exactly like your situation. I edited my code afterwards to put that in. Glad you were able to work around it.