Armando Ballesteros

Hice esto y parece que funciona. Sub AbrirArchivo() Dim f As Integer Dim Abierto As Boolean Dim nomb_archivo As String nomb_archivo = "constantes.xlsx" cuenta = 0 Abierto = True f = FreeFile On Error Resume Next Do While Abierto = True And cuenta < 4...