Macro que me abre archivos y continuar secuencia

Hola buenas dias.
Me puede ayudar con el codigo anterior que me envio por favor
k13= xxxxxxxx.xls
On Error GoTo noEsta
Workbooks.Open Range("K13") & Range("K11")
Exit Sub
noEsta:
MsgBox "El Archivo " & Range("K11") & " no existe"
Si existe el archivo xxxxxxxx.xls que se ejecute la sigueinte secuencia
y si no existe que no me la ejecute y que me mande a la misma pestaña
'DIA 1
If Range("D10").Value = 1 Then
Sheets("1").Visible = True
Sheets("DIRECTORIO").Select
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlFormulas, OPERATION:=xlNone, SKIPBLANKS:= _
False, Transpose:=False
Sheets("DIRECTORIO").Select
Range("D9").ClearContents
Sheets("1").Select
Range("G7").Select
End If
'DIA 2
If Range("D10").Value = 2 Then
Sheets("2").Visible = True
Sheets("DIRECTORIO").Select
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlFormulas, OPERATION:=xlNone, SKIPBLANKS:= _
False, Transpose:=False
Sheets("DIRECTORIO").Select
Range("D9").ClearContents
Sheets("2").Select
Range("G7").Select
End If
continuar....................................
espero su respuesta muchas gracias que tenga un excelente dia