07-24-2020 09:29 AM
07-24-2020 12:45 PM
The below Macro will should do what you want.
Just change the 3rd line to what ever range you want to trigger the print job. "Set KeyCells = Range("A1:C10")"
If you want to print the active sheet and not the entire workbook, change the 6th line to: Activesheet.PrintOut
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then