¿Como puedo buscar que códigos se encuentran disponibles?

Pon lo siguiente para encontrar el código disponible

Cambia en la macro "Base de Datos" por el nombre de tu hoja donde debe buscar.

También cambia "A" por la columna donde se encuentran los códigos.

Private Sub CommandButton1_Click()
'Buscar código disponible
    codigo = 4011001                    'código inicial de búsqueda
    Set h = Sheets("Base de Datos")     'nombre de la hoja
    Do While True
        Set b = h.Columns("A").Find(codigo, LookIn:=xlValues, lookat:=xlWhole)
        If b Is Nothing Then
            MsgBox "Código disponible = " & codigo
            '
            'En esta parte debes poner lo que quieres hacer con el código disponible
            Exit Do
        End If
        codigo = codigo + 1
    Loop
End Sub

.

.

Este seria el Código adecuado a mi programa, pero me sale un error diciendo que "Se requiere un objeto"

Private Sub btndisp_Click()
    codigo = 4011001
    Set h = Sheets("APU")
    Do While True
        Set b = h.Columns("B").Find(codigo, LookIn:=xlValues, lookat:=xlWhole)
        If b Is Nothing Then
            MsgBox "Código disponible = " & codigo
            txtcodd.Text = codigo
            Exit Do
        End If
        codigo = codigo + 1
    Loop
End Sub

¿En cuál línea se detiene la macro?

Revisa si tu textbox se llama así:

Txtcodd

Efectivamente así se llama, pero ya vi el error sucedió que el tonto de mí tenia unas propiedades para un listbox que había borrado jajajajaja... puedo pedir tu ayuda para otracosa que debo hacer con ese código?, es más complejo así que no se si hacerte esa consulta en este foro o crear uno nuevo