I have 12 textboxes on a sheet, named tT1 thru tT12.
I want to create a txtT object variable to refer to them in a loop as follows:

Dim x As Integer
Dim txtT As TextBox
For x = 1 To 12
    set txtT = Evaluate ("tT" & x)
    txtT.Visible = False
Next x

The above does not work. what is the proper way to use a dynamic variable to refer to the textbox objects on the sheet?

Thankyou

You need to use the OLEObjects collection as follows:

Thanks maccas, but once my code reaches the "For Each" line it is skipping the all the lines down to the first Next x line. It is doing that in both loops.

Any ideas?

Public Sub ScanTrucksForOrderSheetList()
Dim x As Integer
Dim sh As Worksheet
Dim oOLEObjects As OLEObjects
Dim oOLEObject As OLEObject
Dim boxName As String

DefineWorksheets
LoadTruckPlanArray
OrderSheet_ws.Activate

Set sh = ThisWorkbook.Sheets(1)
Set oOLEObjects = sh.OLEObjects

For x = 1 To TruckCount

For Each oOLEObject In oOLEObjects
    boxName = "tT" & x
    If oOLEObject.Name = boxName Then
        oOLEObject.Visible = True
        oOLEObject.Formula = TrucksFound(x).TruckName
    End If

Next oOLEObject
Next x

For x = TruckCount + 1 To 12
For Each oOLEObject In oOLEObjects
    boxName = "tT" & x
    If oOLEObject.Name = boxName Then
        oOLEObject.Visible = False
    End If

Next oOLEObject
Next x

For x = 1 To TruckCount
Range("EA" & x + 8).Formula = TrucksFound(x).TruckName
Next x

Erase TrucksFound
Erase TruckPlan
End Sub

Sorry, I got the OLE loops to work...

But how do I assign a value to the text box?

oOLEObject.Value = TrucksFound(x).TruckName

the above doesn't work.

Thanks

You need to put an intermediary object in the statement as follows

oOLEObject.Object.Value = TrucksFound(x).TruckName

I guess the reason its structured this way is that the OLEObject holds properties and methods that are generic to all types of OLEObject (i.e. not all OLEObjects will have a value property but they all have a Name property). The sub Object interface exposes the full range of methods and properties that the specific instance of the OLEObject type may hold - and so in this case will allow you to get your hands on the TextBox Object you're interested in.

BTW, in your code you have a double loop that is probably unnecessary. You should loop though all OLEObjects and determine the value of x by checking whether the OLEObject.ProgID = "Forms.TextBox.1" and Left(OLEObject.Name,2)="tT". If so then determine x by taking the right hand end of the Name string. This should make you code 12 times quicker (approx).

HTH,
Maccas

Thankyou Maccas,

 I have been meaning to acknowlegde your help and haven't done so. Your explanation definately got put to work, now the forms all run from scratch (ie they are empty in design mode), and I can manage all the OLE objects as I want. Really Cool!

Again,
Thankyou