Unselect cells after Printing Dialog

[DouweK]

Dear all,

I've been using VBA's for a while now. But there is one simple thing I am not able to solve and google doesn't help.

I have have financial reports in several sheets with all the same layout. From all sheets I want to print only the range A1:N68
The following code helps me to print all selected sheets.

Sub Print_selection()
'
' Print_selection Macro
'
    Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4").Select
    Range("A1:N68").Select
    res = Application.Dialogs(xlDialogPrint).Show(, , , , , , , , , , , 1)
    
End Sub

This works.
But now I would like to unselect all these sheets after I close the printing dialog. Because now, all these sheets are selected and when I start typing, it is adjusting on all sheets if you forget to unselect them.

Any ideas?

 

[footoo]

Sheets("Sheet1").Select

 

[DouweK]

Ofcourse... -_-'
Thanks!

 

[WaterGypsy]

There are a couple of ways .. you could select another range but that leaves you with a similar problem

or you could use Application.CutCopyMode = False

or (I'm guessing here) you could define the print area in another way rather than by selection