Como deletar a área de impressão

[MarlonS]

Continuando em meus tutoriais, o seguinte também não funcionou:

Sub area_imp()

ActiveSheet.PageSetup.printArea = "A1:B5" 'seleciona A1:B5 como área de impressão

ActiveSheet.Names ( "Print_Area" ).delete 'não funciona

'activesheet.printarea.delete também não funciona

End Sub

[lobismano]

E ai beleza.

Tenta isso:

ActiveSheet.PageSetup.PrintArea = ""

At.

[MarlonS]

Olá, Lobismano e obrigado, funcionou.

Também tentei ActiveSheet.PageSetup.PrintArea = Cells e parece ter funcionado.