How do I get text to flash in MS Excel

  • Thread starter Thread starter Guest
  • Start date Start date
Ollie,

'VBA CODE EXAMPLES
'
'Created by Bill Manville
'
'To create a blinking cell:
'
'If you define a new Style (Format / Style / Flash/ Add ) and apply
'that style to the cells you want to flash, paste the following code
'into a module sheet and run the procedure Flash from Auto-Open if
'desired you will get the text flashing alternately white and red.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub

HTH,
Bernie
MS Excel MVP
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Printer Problem... Epson Stylus Photo R200 4
how can i get the text to flash on and off in excell 2
How do I insert blinking or flashing numbers or text in Excel? 2
Please help with instructions to make a bootable flash drive for linux 7
Flashing or Blinking Cell 1
How to Make cell value flashing in EXcel file 1
The data in a linked Excel spreadsheet column is truncated to 255 characters in an Access database 0
Blinking Text 42

Back
Top