Cancelar rutina de una aplicacion al presionar cancelar

[masterofreality]

Buenas tardes.

Estoy varado en este dilema, tengo una rutina para copiar 2 hojas de un libro de 30 y se abra el dialogo de mover o copiar hojas a un nuevo libro y al aceptar se abre el dialogo de guardar como , después se exporta el archivo a PDF y por ultimo se cierra el libro nuevo creado,.......mi problema es que si le doy cancelar (por que me equivoque en algo) al dialogo de mover o copiar hojas, la macro sigue corriendo y me crea un caos, me borra vínculos etc..... como puedo detener la rutina si le doy cancelar a ese dialogo??, es posible???

Esta es mi Rutina:

Sub ImprimeCot_10()

Application.ScreenUpdating = False

Sheets(Array("Forma10", "NP10")).Select

Sheets("Forma10").Activate

Application.Dialogs(xlDialogWorkbookCopy).Show

Sheets("Forma10").Select

Cells.Select

Range("A20").Activate

Selection.Copy

Cells.Select

Range("A20").Activate

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("NP10").Select

Cells.Select

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1").Select

Sheets("Forma10").Select

Range("A1").Select

Application.Dialogs(xlDialogSaveAs).Show

Salvar_PDF

ActiveWorkbook.Close

ActiveWorkbook.Activate

Sheets("Cotizacion10").Select

Range("C2").Select

Application.ScreenUpdating = True

End Sub

Ojala sea posible me ayuden, pues no puedo dar con la solución....

Gracias de antemano

[masterofreality]

Gracias por el interes, pero lo he solucionado..LoL.... era muy simple

Ciao

[asesorcperic]

Hola massterofreality que bueno que lo solucionaste, no lo tomes a mal pero tal vez si piensas que nadien mostro interes en tu tema fue por que tu tampoco mostraste interes en las normas del foro ya que si ves tu tema hay algunas detalles saludos

[Antoni]

Por si acaso le interesa a alguien:

If Application.Dialogs(xlDialogWorkbookCopy).Show = False Then Exit Sub

[/CODE]

.

[masterofreality]

Tema solucionad