OnTime Method

[Digitborn.com]

Hello,

On Forms - UserForm1 I have:

Private Sub CommandButton1_Click()
    UserForm1.Frame1.Visible = True
    Application.OnTime Now + TimeValue("00:00:04") , "DismissFrameVisability"
End Sub

Private Sub UserForm_Initialize()
    Frame1.Visible = False
End Sub

On a Modules - Module1:

Sub DismissFrameVisability()
    UserForm1.Frame1.Visible = False
End Sub

Why nothing happens, UserForm1.Frame1.Visible = False does not trigger after 4 seconds?

p.s. If I use Application.Wait (Now + TimeValue("0:00:04")), I can't click on the controls on Frame1 because they are locked until these 4 seconds past.

 

[Datsmart]

Just built a UserForm and tested your code.
Why do you have your Initialization code turning off Frame1 and then also have a command button to do the same thing?

I removed the Initialization code and the rest of the code hides Frame1 after 4 seconds.

 

[Digitborn.com]

I found the problem. Except "DismissFrameVisability", I was named my procedure "A2". That's why nothing happens. Do you know why it's not accepting names like "A2"!?

 

[Datsmart]

"A2" is a "reserved name", you can not use names that could be confused with cell addresses or funtions, etc.

 

[Digitborn.com]

Can you tell me where I can find info on such kind of reserved names? Can I use letters + numbers for names or numbers are not allowed?

 

[Datsmart]

I tried to Google up a list and have not found one.

This link gives a small explaination under Rule #4.
http://ezinearticles.com/?Rules-For-Naming-Cells-in-Microsoft-Excel&id=218607

 

[Digitborn.com]

I couldn't find in the VBA or Excel Help too. Nevermind, I learnt some good lessons for today . Thanks for your inputs..