For...Next Loop doesn't work in UserForm

[BluEEyE86]

Hello,

Can some help me why below Loop doesn't work ? Numbering of "Labels" in UserForm is the same like numbering of "S" varabiles.

Dim m As Byte

Dim S1 As String
Dim S2 As String
Dim S3 As String
Dim S4 As String
Dim S5 As String
Dim S6 As String
Dim S7 As String
Dim S8 As String
Dim S9 As String
Dim S10 As String
Dim S11 As String
Dim S12 As String
Dim S13 As String
Dim S14 As String
Dim S15 As String
Dim S16 As String
Dim S17 As String
Dim S18 As String
Dim S19 As String
Dim S20 As String
Dim S21 As String
Dim S22 As String
Dim S23 As String

ThisWorkbook.Worksheets("Skill_matrix_SQA").Range (A13)
 
    For m = 1 To 23
  
        S(m) = ThisWorkbook.Worksheets("Skill_matrix_SQA").Cells(13, m + 3).Value
      
        Label(m) = S(m)
      
    Next m

I have below error when try to run this code

Thanks for your help.

 

[Zot]

Maybe something like this? ThisWorkbook.Worksheets("Skill_matrix_SQA").Range (A13) serves no purpose here.

Option Base 1

Sub Test()

Dim m As Byte
Dim S(1 To 23) As String
Dim Label(1 To 23) As String

'ThisWorkbook.Worksheets("Skill_matrix_SQA").Range (A13)
  
    For m = 1 To 23
   
        S(m) = ThisWorkbook.Worksheets("Skill_matrix_SQA").Cells(13, m + 3).Value
       
        Label(m) = S(m)
       
    Next m

End Sub

 

[RoryA]

Are you actually doing anything with those cell values other than trying to use them as label captions?

 

[BluEEyE86]

There are no changes. I want to use those cells exactly as Label Captions. If the desription insde the cell would change, Label captio would be changed as well. This the idea.

 

[RoryA]

You can't link them dynamically, but it doesn't look like you need the intermediate variables to me, so just:

    For m = 1 To 23
      
        Me.Controls("Label" & m).Caption = ThisWorkbook.Worksheets("Skill_matrix_SQA").Cells(13, m + 3).Value
      
    Next m