-
RetiredGeek
AskWoody_MVPThis seems like such a handy thing that I tried it in Word 2007 and I cannot get it to work. I changed names slightly, checked program Help which suggested including the full path to the macro, used the When and Name labels, did not include the lblMessage.Caption to make it simpler. No error message. The form displays and never closes.
Code:Sub TestTimedMessage() Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="Normal.TestMacros.UnloadTimedDialog" frmTimedDialog.Show End Sub Sub UnloadTimedDialog() frmTimedDialog.Hide End Sub
What am I missing? Security is wide open.
Thanks, KimI tried it in Word and also ran into problems.
1. Make sure it’s in a module not ThisDocument
2. Change the form’s behavior to ShowModal = False (this makes it work!)I looked for the ShowModal property in the Object browser but could not find it so
you’ll have to set it when you design the form vs at runtime.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI had a little trouble getting this to work…of course it was because I put the message display BEFORE the timer…duh!
Here’s my example code:
Code:Sub Testit() ufMessageBoard.lblMessage.Caption = "Testing timed message" 'Application.OnTime Now + TimeValue("00:00:03"), "UnloadMessageBoard" 'This works also Application.OnTime DateAdd("s", 3, Now), "UnloadMessageBoard" ufMessageBoard.Show End Sub Sub UnloadMessageBoard() ufMessageBoard.Hide End Sub
ufMessageBoard is just an Excel form with a single label field.
I used a label field because it won’t appear like a text field
which may be inviting the user to enter something.RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
-
RetiredGeek
AskWoody_MVPI just ran a quick test to refresh my memory and Auto_Open macros do Not run when the workbook is
opened by Workbook.open.Do you have some other types of auto execute macros, perhaps triggered by an event?
RG
![]() |
There are isolated problems with current patches, but they are well-known and documented on this site. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Microsoft : Ending USB-C® Port Confusion
by
Alex5723
1 hour, 22 minutes ago -
KB5061768 update for Intel vPro processor
by
drmark
1 hour, 16 minutes ago -
Outlook 365 classic has exhausted all shared resources
by
drmark
34 minutes ago -
My Simple Word 2010 Macro Is Not Working
by
mbennett555
16 hours, 33 minutes ago -
Office gets current release
by
Susan Bradley
1 hour, 44 minutes ago -
FBI: Still Using One of These Old Routers? It’s Vulnerable to Hackers
by
Alex5723
1 day, 13 hours ago -
Windows AI Local Only no NPU required!
by
RetiredGeek
22 hours, 20 minutes ago -
Stop the OneDrive defaults
by
CWBillow
1 day, 14 hours ago -
Windows 11 Insider Preview build 27868 released to Canary
by
joep517
2 days ago -
X Suspends Encrypted DMs
by
Alex5723
2 days, 2 hours ago -
WSJ : My Robot and Me AI generated movie
by
Alex5723
2 days, 3 hours ago -
Botnet hacks 9,000+ ASUS routers to add persistent SSH backdoor
by
Alex5723
2 days, 3 hours ago -
OpenAI model sabotages shutdown code
by
Cybertooth
2 days, 4 hours ago -
Backup and access old e-mails after company e-mail address is terminated
by
M W Leijendekker
1 day, 16 hours ago -
Enabling Secureboot
by
ITguy
1 day, 23 hours ago -
Windows hosting exposes additional bugs
by
Susan Bradley
2 days, 12 hours ago -
No more rounded corners??
by
CWBillow
2 days, 8 hours ago -
Android 15 and IPV6
by
Win7and10
1 day, 21 hours ago -
KB5058405 might fail to install with recovery error 0xc0000098 in ACPI.sys
by
Susan Bradley
3 days ago -
T-Mobile’s T-Life App has a “Screen Recording Tool” Turned on
by
Alex5723
3 days, 3 hours ago -
Windows 11 Insider Preview Build 26100.4202 (24H2) released to Release Preview
by
joep517
2 days, 21 hours ago -
Windows Update orchestration platform to update all software
by
Alex5723
3 days, 10 hours ago -
May preview updates
by
Susan Bradley
2 days, 21 hours ago -
Microsoft releases KB5061977 Windows 11 24H2, Server 2025 emergency out of band
by
Alex5723
2 days, 13 hours ago -
Just got this pop-up page while browsing
by
Alex5723
3 days, 2 hours ago -
KB5058379 / KB 5061768 Failures
by
crown
2 days, 23 hours ago -
Windows 10 23H2 Good to Update to ?
by
jkitc
2 days, 2 hours ago -
At last – installation of 24H2
by
Botswana12
4 days, 2 hours ago -
MS-DEFCON 4: As good as it gets
by
Susan Bradley
49 seconds ago -
RyTuneX optimize Windows 10/11 tool
by
Alex5723
4 days, 14 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.