Hi there, and welcome to the forum.
Try replacing your Worksheet_Change event with the following:
Let me know if that does the trick.Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Parent.Range("A1").Value = 1 Then Call PrintToPDF_Late End If End Sub
Bookmarks