Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding code
Hello
I have this code (below) and I wish to add another Interior.ColorIndex 5 and another Value "Media". Is this possible? Option Explicit Dim nextSecond Sub startFlashing() flashCell End Sub Sub stopFlashing() On Error Resume Next Application.OnTime nextSecond, "flashCell", , False End Sub Sub flashCell() nextSecond = Now + TimeValue("00:00:01") Application.OnTime nextSecond, "flashCell" If Range("D7").Interior.ColorIndex = 4 Then Range("D7").Interior.ColorIndex = 6 Range("D7").Value = "SPORT" ElseIf Range("D7").Interior.ColorIndex = 6 Then Range("D7").Interior.ColorIndex = 4 Range("D7").Value = "EDUCATION" End If End Sub Thanks in advance |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating excel file, adding code to it from code, VBE window stays | Excel Programming | |||
adding code lines with vba code | Excel Programming | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
adding to a VBA COde | Excel Programming | |||
Adding space to VBA code | Excel Programming |