Why are you using Functions for this?

It's not the sort of thing they are intended for.

Also why use one of the combobox's own events to populate it?

If the combobox is on a userform try this.
Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ComboBox1.AddItem ws.Name
    Next ws
End Sub