Como usar On Error GoTo

[jongova]

Tengo el siguiente codigo que me esta causando el error "Object variable or With block variable not set"

El codigo a grandes rasgos lo que hace es que abre un archivo, busca una palabra, cuando la encuentra corta y pega un rango de celdas en otro archivo.

Cuando vuelve a buscar y no encuentra la palabra me sale un error, para lo cual le agregue la instruccion de "On Error GoTo"

Pero no funciona, si alguien me podria ayudar se los agradezco.

Saludos
jongova


Sub AbrirBuscar()
'
'
Dim sPath As String, sName As String
Dim bk As Workbook
On Error GoTo CerrarArchivo
sPath = "D:\Documents\SQ\Licitaciones\2013 MegaLicitacion\TEST\"
sName = Dir(sPath & "*.xls")
Do While sName <> ""
Set bk = Workbooks.Open(sPath & sName)

Cells.Find(what:="BACAL-515 (DES)", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(-3, 0).Range(Cells(1, 1), Cells(62, 11)).Select
Selection.Cut
Windows("Book1").Activate
ActiveSheet.Paste
ActiveCell.Offset(62, 0).Activate
Workbooks(2).Activate


Cells.Find(what:="BACAL-515 (DES)", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(-3, 0).Range(Cells(1, 1), Cells(62, 11)).Select
Selection.Cut
Windows("Book1").Activate
ActiveSheet.Paste
ActiveCell.Offset(62, 0).Activate

CerrarArchivo:
bk.Close Savechanges:=False
sName = Dir()

Loop

End Sub

[pkj]

Creo que debes salir del Loop antes del error:

Loop
' y quizas salir sin ejecutar esto, en caso de que solo se deba ejecutar si hay error
exit sub

CerrarArchivo:

bk.Close Savechanges:=False
sName = Dir()

End Sub

Saludos