I want to know the method, how do I get text blink in a excel sheet.

You have to use a macro to do that in Excel. This link explains how:
http://www.cpearson.com/Excel/BlinkingText.aspx

If you are new to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/200...e-elses-macro/

Hope this helps,

Hutch

"Suresh Lohar" wrote:

> I want to know the method, how do I get text blink in a excel sheet.

Just to follow up on Tom's message... be sure to read the Summary section at
the bottom of the webpage for that first URL link... ESPECIALLY the part in
parentheses on that last bulleted item.

--
Rick (MVP - Excel)



"Tom Hutchins" <(E-Mail Removed)> wrote in message
news:1841CFDF-71F2-437D-963E-(E-Mail Removed)...
> You have to use a macro to do that in Excel. This link explains how:
> http://www.cpearson.com/Excel/BlinkingText.aspx
>
> If you are new to macros, this link to Jon Peltier's site may be helpful:
> http://peltiertech.com/WordPress/200...e-elses-macro/
>
> Hope this helps,
>
> Hutch
>
> "Suresh Lohar" wrote:
>
>> I want to know the method, how do I get text blink in a excel sheet.

Thanks, macros are working but only when I run macros.

Otherwise when I open the file, it doesn't blink automatically.

Why is so sir.

Suresh

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub


I used this macro, but text blink only then when I run the macros.
When I open this file, Text doesn't blink automatically.
Kindly help sir in this regard. Thanks a lot.

The Workbook_Open and the Workbook_BeforeClose procedures are workbook event
code and, as such, must be placed in the ThisWorkbook module, not the BAS
Module you now have them in (macros go in the BAS Module, but event code
goes in the sheet or workbook module that they apply to). You can open the
ThisWorkbook module by double clicking the ThisWorkbook entry from Project
window.

--
Rick (MVP - Excel)



"Suresh Lohar" <(E-Mail Removed)> wrote in message
news:EE8B22D8-75AF-4F33-986E-(E-Mail Removed)...
>
> Public RunWhen As Double
>
> Sub StartBlink()
> With ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font
> If .ColorIndex = 3 Then ' Red Text
> .ColorIndex = 2 ' White Text
> Else
> .ColorIndex = 3 ' Red Text
> End If
> End With
> RunWhen = Now + TimeSerial(0, 0, 1)
> Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
> True
> End Sub
>
> Sub StopBlink()
> ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font.ColorIndex = _
> xlColorIndexAutomatic
> Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
> False
> End Sub
> Private Sub Workbook_Open()
> StartBlink
> End Sub
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> StopBlink
> End Sub
>
>
> I used this macro, but text blink only then when I run the macros.
> When I open this file, Text doesn't blink automatically.
> Kindly help sir in this regard. Thanks a lot.

sir, many many thanks, it works now.

Thanks for quick and kind cooperation.

Suresh Lohar