Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo:

Private Sub cbo_Categoria_DropButtonClick()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BD")
Dim i As Integer
Dim n As Integer

n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0)
Me.cbo_Tipo.Clear
For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn)
    Me.cbo_Tipo.AddItem sh.Cells(i, n).Value

Next i
 

Tengo error en la linea n; porque el valor de cbo_Categoria es "", osea vacio.

como puedo solucionarlo.?

n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0)

If n = "" Then
MsgBox " Sin Dato "
else
	Me.cbo_Tipo.Clear

	For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn)
    	Me.cbo_Tipo.AddItem sh.Cells(i, n).Value

	Next i

en If

Hola, revisa el código.