Hello again.....

Why would this code not work? i had it workign fine last week but had to populate different combo boxes with different ranges so created extra codes to do this, but had to add rngdate1 and ws1 etc as it can not duplicate rngdate and ws, but now none of the combo boxes are being populated with the ranges....


Private Sub UserForm1_Initialize()

Dim rngDate As Range
Dim ws As Worksheet
Set ws = Worksheets("Data2")
For Each rngDate In ws.Range("WEEKCOMMENCING2")
Me.ComboBox4.AddItem rngDate.Value
Next rngDate

Dim rngDate1 As Range
Dim ws1 As Worksheet
Set ws1 = Worksheets("Data2")
For Each rngDate1 In ws1.Range("WEEKCOMMENCING3")
Me.ComboBox8.AddItem rngDate1.Value
Next rngDate1

Dim rngDate2 As Range
Dim ws2 As Worksheet
Set ws2 = Worksheets("Data2")
For Each rngDate2 In ws2.Range("ARRIVALAPPLES")
Me.ComboBox7.AddItem rngDate2.Value
Next rngDate2

Dim rngDate3 As Range
Dim ws3 As Worksheet
Set ws3 = Worksheets("Data2")
For Each rngDate3 In ws3.Range("NZARRIVALAPPLES")
Me.ComboBox10.AddItem rngDate3.Value
Next rngDate3

Dim rngDate4 As Range
Dim ws4 As Worksheet
Set ws4 = Worksheets("Data2")
For Each rngDate4 In ws4.Range("NZARRIVALPEARS")
Me.ComboBox11.AddItem rngDate4.Value
Next rngDate4

Dim rngDate5 As Range
Dim ws5 As Worksheet
Set ws5 = Worksheets("Data2")
For Each rngDate5 In ws5.Range("ARRIVALPEARS")
Me.ComboBox5.AddItem rngDate5.Value
Next rngDate5

Dim rngDate6 As Range
Dim ws6 As Worksheet
Set ws6 = Worksheets("Data2")
For Each rngDate6 In ws6.Range("SAWKC")
Me.ComboBox6.AddItem rngDate6.Value
Next rngDate6

Dim rngDate7 As Range
Dim ws7 As Worksheet
Set ws7 = Worksheets("Data2")
For Each rngDate7 In ws7.Range("NZWKC")
Me.ComboBox9.AddItem rngDate7.Value
Next rngDate7

End Sub
Dan