Setting Label Captions equal to cell values

[madeofcarbon]

I'm getting an error for "could not find the specified object"

Basically I have labels with names A1-A18 and I want to put the values from a worksheet cells D4-D22

PartN = "130SM0003"
ExcelColumn = "D"
DosingColumn = "A"
DosingRow = 1
ExcelRow = 4

Do
CP.Controls(DosingColumn & DosingRow).Caption = Worksheets(PartN).Range(ExcelColumn & ExcelRow)
DosingRow = DosingRow + 1
ExcelRow = ExcelRow + 1
Loop Until DosingRow = 18

Any Help is appreciated.

 

[Weaver]

Do you know the value of dosingRow it fails at?

Might you be better off using a for .. next loop anyway? I don't think the caption in A18 would be updated here in any case.

Not sure if that's the problem tho

See if this works any better

    PartN = "130SM0003"
    ExcelColumn = "D"
    DosingColumn = "A"
    
    For i = 1 To 18
        CP.Controls(DosingColumn & i).Caption = Worksheets(PartN).Range(ExcelColumn & i + 3).Value
    Next i

 

[madeofcarbon]

I'm still getting the same error.

If i take the loop out and run the code, it does put the correct value into label "A1" but once i put the loop back in it shows error

 

[Norie]

Have you double checked the label names?

Perhaps there's a leading/trailing space in one of them, or some other typo.

 

[madeofcarbon]

I just went thru the loop manually by setting i = 1 and running the code. A1 contained the correct value.

Then i = 2 > run code > A2 was correct value etc.

That all worked fine. It is just when I go to add the loop that i receive the error.