Help with loop function

[jyokom]

How can I simplify the following by utilizing the loop function?

Sub Crew1_Change()
Sheets("Setup").Calculate
TB_Pos1_1.Value = Sheets("Setup").Range("AJ9").Text
TB_Unit1_1.Value = Sheets("Setup").Range("AQ9").Text
TB_SSN1_1.Value = Sheets("Setup").Range("AT9").Text

TB_Pos1_2.Value = Sheets("Setup").Range("AJ10").Text
TB_Unit1_2.Value = Sheets("Setup").Range("AQ10").Text
TB_SSN1_2.Value = Sheets("Setup").Range("AT10").Text

TB_Pos1_3.Value = Sheets("Setup").Range("AJ11").Text
TB_Unit1_3.Value = Sheets("Setup").Range("AQ11").Text
TB_SSN1_3.Value = Sheets("Setup").Range("AT11").Text

TB_Pos1_4.Value = Sheets("Setup").Range("AJ12").Text
TB_Unit1_4.Value = Sheets("Setup").Range("AQ12").Text
TB_SSN1_4.Value = Sheets("Setup").Range("AT12").Text

TB_Pos1_5.Value = Sheets("Setup").Range("AJ13").Text
TB_Unit1_5.Value = Sheets("Setup").Range("AQ13").Text
TB_SSN1_5.Value = Sheets("Setup").Range("AT13").Text

End Sub

 

[hallingh]

Just taking a stab in the dark but try...

Sub Crew1_Change_Loop()
     Dim i As Integer
     Sheets("Setup").Calculate

     For i = 1 To 5
         ActiveSheet.Range("TB_Pos1_" & i).Value = Sheets("Setup").Range("AJ8").Offset(i, 0).Text
         ActiveSheet.Range("TB_Unit1_" & i).Value = Sheets("Setup").Range("AQ8").Offset(i, 0).Text
         ActiveSheet.Range("TB_SSN1_" & i).Value = Sheets("Setup").Range("AT8").Offset(i, 0).Text
     Next i
 End Sub

Or if it's not doing its magic on the activesheet then change that sheet reference to whatever you want.

Again, just a stab in the dark

HTH

Hank