Private Sub MacroName()
  Application.DisplayAlerts = False
  'Function causing the alert goes here (eg opening the document)
  Application.DisplayAlerts = True   'restore normal behaviour
End Sub