T
Tom Ogilvy
for activeX controls on a worksheets with sequential names as an example:
for i = 1 to 50
With Worksheets("Sheet1")
.OleObjects("TextBox" & i).Object.Value = .Cells(i,2)
.OleObjects("Label" & i).Object.Caption = .Cells(i,1)
End With
Next
for i = 1 to 50
With Worksheets("Sheet1")
.OleObjects("TextBox" & i).Object.Value = .Cells(i,2)
.OleObjects("Label" & i).Object.Caption = .Cells(i,1)
End With
Next