Good day,
I am lost and would need the following code as I have tried something by stoping the Private Sub command but didn't do nothing...

I have a print Userform: 

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    msg = MsgBox("This will print Pre-GETS, GETS, Evaluation and Report sheet. Continue?", _
    vbYesNo + vbQuestion + vbSystemModal, "Print all Sheets?")
    
    If msg = vbYes Then
    
        Sheets("Pre-Solicitation").Select
        Range("C:C,D:D,E:E,F:F,G:G").EntireColumn.Hidden = False
        ActiveSheet.PrintOut Copies:=1, Collate:=True
        Range("C:C,D:D,E:E,F:F,G:G").EntireColumn.Hidden = True
        
        Sheets("GETS").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
        Sheets("Evaluation").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
        Sheets("Report").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
        Sheets("Pre-Solicitation").Select
        Range("A5").Select
    
    Application.ScreenUpdating = True
    Unload Me
    Exit Sub
    
    If msg = vbNo Then Exit Sub
    End If
End Sub
Pretty simple righ. But when I get to my Sheet5(Report) I need the following code to stop in it's entirety...

Private Sub Worksheet_Activate()
    Set rng = Range("V5:V100") 
    Application.EnableEvents = False
    For Each cl In rng
        If IsDate(cl.Value) And CDate(cl.Value) <= Date Then
            MsgBox ("Delivery follow up on file " & Range("N" & cl.Row) & " " & Range("O" & cl.Row))
        End If
    Next cl
    Application.EnableEvents = True 
End Sub
I would I write this code...

When the print on sheet5 my code runs and don't even print.

Please help