Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Flashing UserForm Label
Dim x As Integer Dim OrigColor As Integer Dim NewColor As Integer Dim CellToFlash As Range OrigC = ActiveCell.Interior.ColorIndex NewColor = 16 ' 1st cell color OrigColor = 2 ' 2nd cell color Set CellToFlash = Range("L7") ' Cell range to flash Do Until x = 5 ' Flash 20 times DoEvents start = Timer ' Set timer for 1st flash rate Delay = start + 0.2 ' Set delay for 1st cell color Do Until Timer Delay ' Dountil delay is exceeded = start+1 DoEvents CellToFlash.Interior.ColorIndex = NewColor ' Changes cell color to 1st color Loop start = Timer ' Set timer for 2nd flash rate Delay = start + 0.2 ' Set delay for 2nd cell color Do Until Timer Delay DoEvents CellToFlash.Interior.ColorIndex = OrigColor ' Changes cell color to 2nd color Loop x = x + 1 ' Loop increment Loop The above VB makes cell "L7" flash the way I want it to. How do I modify the above VB to make Label1 on UserForm1 flash instead?? -- grahammal ------------------------------------------------------------------------ grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336 View this thread: http://www.excelforum.com/showthread...hreadid=526709 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Userform Label | Excel Discussion (Misc queries) | |||
Userform Label question | Excel Programming | |||
Flashing worksheets behind a userform | Excel Programming | |||
Userform blinking label | Excel Programming | |||
UserForm label doesn't load? | Excel Programming |