Thank you for your time,Ron
Sub SecondsDelay(ByVal NumSeconds As Integer)
StartTime = CInt(Format(Now, "s")) Do Until CInt(Format(Now, "s")) = StartTime + NumSeconds DoEvents Loop
It looks like you're new here. If you want to get involved, click one of these buttons!