Private Sub UserForm_Initialize()
If Worksheets("sheet1").Range("C16") < "" Then
For Each c In Range(ComboBox1.RowSource)
If c = Worksheets("sheet1").Range("C16") Then
ComboBox1.Value = c
Exit Sub
End If
Next c
End If
End Sub

Hth,
Merjet