Wait less than a second

[Claus]

Hi

I would like to delay the hiding of 4 columns, someting like

Columns("R").Hidden = True
Application.Wait (Now + TimeValue("0:00:01"))
Columns("S").Hidden = True
Application.Wait (Now + TimeValue("0:00:01"))
Columns("T").Hidden = True
Application.Wait (Now + TimeValue("0:00:01"))
Columns("U:").Hidden = True

How do i define a time less than a second ?

Hoping for an answer


Regards,
Claus

 

[RB Smissaert]

Put this at the very top of your code module:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Then where you want to wait put something like this:

Wait 500 'wait 0.5 seconds


RBS

 

[Claus]

Thank you

It works when i replace "Wait" with "Sleep"

Regards,
Claus

 

[RB Smissaert]

Yes, it should be sleep. Just had your wait in mind.

RBS