I'm using the code below to fill details in on a number of labels within a UserForm. Can the code be made any easier?
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Label1.Caption = Sheets("Data").Range("C1").Value
Label2.Caption = Sheets("Data").Range("D1").Value
Label30.Caption = Sheets("Data").Range("E1").Value
Label3.Caption = Sheets("Data").Range("F1").Value
Label4.Caption = Sheets("Data").Range("G1").Value
Label5.Caption = Sheets("Data").Range("H1").Value
Label6.Caption = Sheets("Data").Range("I1").Value
Label7.Caption = Sheets("Data").Range("K1").Value
Label8.Caption = Sheets("Data").Range("L1").Value
Label9.Caption = Sheets("Data").Range("M1").Value
Label10.Caption = Sheets("Data").Range("N1").Value
Label11.Caption = Sheets("Data").Range("O1").Value
Label12.Caption = Sheets("Data").Range("P1").Value
Label13.Caption = Sheets("Data").Range("Q1").Value
Label14.Caption = Sheets("Data").Range("R1").Value
Label15.Caption = Sheets("Data").Range("S1").Value
Label16.Caption = Sheets("Data").Range("T1").Value
Label17.Caption = Sheets("Data").Range("U1").Value
Label18.Caption = Sheets("Data").Range("V1").Value
Label19.Caption = Sheets("Data").Range("W1").Value
Label20.Caption = Sheets("Data").Range("X1").Value
Label21.Caption = Sheets("Data").Range("Y1").Value
Label22.Caption = Sheets("Data").Range("Z1").Value
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Label1.Caption = Sheets("Data").Range("C1").Value
Label2.Caption = Sheets("Data").Range("D1").Value
Label30.Caption = Sheets("Data").Range("E1").Value
Label3.Caption = Sheets("Data").Range("F1").Value
Label4.Caption = Sheets("Data").Range("G1").Value
Label5.Caption = Sheets("Data").Range("H1").Value
Label6.Caption = Sheets("Data").Range("I1").Value
Label7.Caption = Sheets("Data").Range("K1").Value
Label8.Caption = Sheets("Data").Range("L1").Value
Label9.Caption = Sheets("Data").Range("M1").Value
Label10.Caption = Sheets("Data").Range("N1").Value
Label11.Caption = Sheets("Data").Range("O1").Value
Label12.Caption = Sheets("Data").Range("P1").Value
Label13.Caption = Sheets("Data").Range("Q1").Value
Label14.Caption = Sheets("Data").Range("R1").Value
Label15.Caption = Sheets("Data").Range("S1").Value
Label16.Caption = Sheets("Data").Range("T1").Value
Label17.Caption = Sheets("Data").Range("U1").Value
Label18.Caption = Sheets("Data").Range("V1").Value
Label19.Caption = Sheets("Data").Range("W1").Value
Label20.Caption = Sheets("Data").Range("X1").Value
Label21.Caption = Sheets("Data").Range("Y1").Value
Label22.Caption = Sheets("Data").Range("Z1").Value
Application.ScreenUpdating = True
End Sub