Screen flicker

[pujo]

When executing the below subroutine, excel will briefly flicker, screen turns black.
How can I stop this from happening?
Thanks!

Sub SheetAsPDF()
  Application.ScreenUpdating = False
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim fileName As String
    
    fileName = ThisWorkbook.Path & "\" & ws.Name & " " & Format(Date, "mm-yyyy") & ".pdf"
      ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    MsgBox "Document saved successfully!", vbInformation
  Application.ScreenUpdating = True
End Sub

 

[RoryA]

Remove the two application.screenupdating lines.

 

[pujo]

Remove the two application.screenupdating lines.

Commented all the application objects one at the time to test.
This had no effect and the screen continues to flicker when executing the subroutine.

 

[RoryA]

I can’t see anything there that should cause that. How are you running it?

 

[pujo]

I can’t see anything there that should cause that. How are you running it?

No event triggers, run command in the vb editor.
Will be assigning to a command button when I get it figured out.

Thanks