Solved: Can these 2 VBA codes be merged in to 1

[Toonies]

Hi and thanks for looking

Is it possible to combine the following 2 Vba codes

both work fine alone
[VBA]Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("January-June").Range("B6:B45").Value

End Sub[/VBA]

[VBA]Private Sub UserForm_Initialise()
ComboBox1.List = Worksheets("July - December").Range("B6:B45").Value
End Sub[/VBA]

many thanks

Toonies

[Bob Phillips]

[vba]

Private Sub UserForm_Initialize()
Dim cell As Range

With ComboBox1

.List = Worksheets("January-June").Range("B6:B45").Value
' .List = Worksheets("July-December").Range("B6:B45").Value
For Each cell In Worksheets("July-December").Range("B6:B45")

.AddItem cell.Value
Next cell
End With
End Sub
[/vba]

[Toonies]

xld many thanks again



Toonies