Just one macro not working

Ulodesk · #1 03-28-2019, 06:30 AM

In my (W7) Normal.dotm, in Module1 (the only module), this one macro of the 20-some I have, stopped working from the keyboard shortcut months ago, and I'm finally getting around to posting here. It works fine if I run it from macros dialogue. All my other macro shortcuts work. The shortcut is the same I have used for ten years, [Ctrl+Shift+?]. The keyboard and those keys in particular work fine as well. Any ideas?

Code:

Sub InsertDate()
'
' InsertDate Macro
'
'
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "DATE  \@ ""MMMM d, yyyy"" ", PreserveFormatting:=True
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Fields.Unlink
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
End Sub

Ulodesk · #2 04-01-2019, 09:16 AM

I found that by deleting the shortcut, closing the shortcuts dialogue, reopening the shortcuts and entering it again and saving, it started working again.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to move data - Macro not working	ecarter312	Excel Programming	1	08-10-2016 11:26 PM
Macro button is not working for some users	bjsusol	Excel	2	03-23-2015 07:57 AM
Macro to update ole links not working	kisa500	PowerPoint	7	02-05-2013 03:52 AM
Fraction macro not working	Ulodesk	Word VBA	1	07-18-2012 04:01 PM
macro not working (on click increment)	gsrikanth	Excel Programming	1	07-12-2012 07:40 AM