On Error GoTo ErrImp
For stro =  2  To  1000 

lic = Worksheets("MosReg").Cells(stro,  2 )
nam = Worksheets("MosReg").Cells(stro,  3 )

ChDir dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk
aaa = dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk & "\ot" & lic & mesCif & godKr

Workbooks.Open Filename:= _
dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk & "\ot" & lic & mesCif & godKr

nexto:
Next stro

ErrImp:
Select Case Err.Number
    Case  76 
Err.Clear
GoTo nexto
    Case Else
    MsgBox Err.Number
    MsgBox Err.Description
    Stop
    End Select