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