Error en el método 'Range'de objeto '_Global'

Quisiera que me pudieras ayudar con un problema en un form de excel:
Tengo un informe de más de 2mil registros con 9 columnas, entonces realice un form con un textbox y un botón donde en el textbox dígito la palabra a buscar de la primera col y luego le doy click al botón para que empiece la búsqueda
Pero al realizar esto me sale el siguiente error:
Se ha producido el error '1004'en tiempo de ejecución:
Error en el método 'Range'de objeto '_Global'
Este es el código que tengo en el botón:
Dim Celdas As String
    Application.ScreenUpdating = False
   Set c = [A:A].Find(What:=TextBox1, LookIn:=xlFormulas, LookAt:=xlPart, _
    MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If c Is Nothing Then
        MsgBox ("No se encontraron resultados")
        Exit Sub
    End If
    firstAddress = c.Address
Do
    Celdas = Celdas & "," & c.Address
    Set c = [A:A].FindNext(After:=c)
    Range(c.Address).Select
Loop While c.Address <> firstAddress
Application.ScreenUpdating = True
Range(Mid(Celdas, 2, Len(Celdas))).Select '**AQUI ME RESALTA EL  ERROR******
Selection.Copy
    Set c = Nothing.
Por otro lado como podría agregar otro textbox y me busque por ejemplo en la 3 columna, para que me identifique un registro único, osea com parar entre los 2 textbox y me busque esas coincidencias entre ambos.