Cargar datos en un combobox vba

Recurriendo a su experticia para desarrollar diferentes errores presentados a la hora de aplicar en formularios me gustaría saber por que me genera error a la hora de cargar los datos en un combobox desde una hoja este ejercicio lo he repetido varias veces sin problemas a la hora de aplicar me sale que no esta definida la función sub o function la cual la defino desde un modulo y la llamo desde el formulario y la verdad recurro al foro cuando llevo días tratando de desarrollar y pasar el error pero cuando me pego es allí que hago mi llamado gracias...

Public Function GetUltimoR(Hoja As Worksheet) As Integer
'linea para cargar el combo de registr de compras se encuentra en modulo 
    GetUltimoR = GetNuevoR(Hoja) - 1 'en esta linea me genera el error GetNuevoR 
End Function

Private Sub ComboBox4_Enter()
Dim fila As Integer
Dim final As Integer
Dim Lista As String
    'Toda esta rutina agrega los items al ComboBox
    For fila = 1 To ComboBox4.ListCount
        ComboBox4.RemoveItem 0
    Next fila
        'Inspecciono la hoja de productos para determinar el final del listado
        final = GetUltimoR(Hoja2) ' llamado del modulo 
        'Agrego el listado de códigos de productos al ComboBox desde la hoja de productos
        For fila = 2 To final
            Lista = Hoja2.Cells(fila, 2) 'prueba cambio a 1
            ComboBox4.AddItem (Lista)
        Next
End Sub