View Single Post
 
Old 09-22-2019, 04:27 AM
eduzs eduzs is offline Windows 10 Office 2010 32bit
Expert
 
Join Date: May 2017
Posts: 266
eduzs is on a distinguished road
Default

Simply remove from Sub DATEPLUS7
Quote:
Selection.TypeText Text:=Format(Date + 7, "mmmm d, yyyy")
Quote:
Private Sub Document_Open()
If MsgBox("Run Macro?", vbYesNo, "Message") = vbYes Then Call DATEPLUS7
End Sub
__________________
Backup your original file before doing any modification.
Reply With Quote