Error en Rowsource Valor de propiedad no válido. ¿Cómo lo soluciono?

Tengo la siguiente línea de código en el activate de un User Form

Private Sub UserForm_Initialize()

Application.ScreenUpdating = False
Dim FILA As Long
ENT_FECHA = Format(Now(), "dd/mm/yyyy")
Set b = Sheets("BASE DE DATOS")
uf = b.Range("B" & Rows.Count).End(xlUp).Row 'ULTIMA FILA
uc = b.Cells(5, Columns.Count).End(xlToLeft).Address 'ULTIMA CELDA CON INFORMACION
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
rgo = "Hoja2!B5:" & wc & uf
With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = "80 pt;200 pt;100 pt;100pt;80pt "
.RowSource = rgo
End With
Application.ScreenUpdating = True
End Sub

He revisado los valores y se carga bien, se genera el rango, pero siempre termino con el mismo error.

No se puede configurar rowsource, valor de propiedad no válido