Private Sub UserForm_Initialize()
Dim xc As Long
For xc = 3 To Sheets.Count - 1
ComboBox1.AddItem Sheets(xc).Name
Next xc ComboBox1.ListIndex = 0 Dim x As Long
For x = 1 To Sheets.Count - 1
ComboBox2.AddItem Sheets(x).Name
Next x ComboBox2.ListIndex = 0
End sub