Automatically print when cells value change

Hi beikme,

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

ActiveWorkbook.PrintOut

End If
End Sub