Is it possible to create a macro that does it even when the the cell isn't
changed directly?

"Bob Phillips" wrote:

It works when Q16 is changed directly.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Mike B." wrote in message
...
Does this code only work if the Q16 is selected? Is it possible to run the
macro without have Q16 as the active cell?

"Bob Phillips" wrote:

Add this to a standard code module


Public nCount As Long

Public Sub RunTimer()

If nCount = 0 Then

Range("W8") = nCount
nCount = nCount - 1
Application.OnTime Now + TimeSerial(0, 0, 1), "RunTimer"
End If
End Sub

and in the worksheet code module add

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "Q16" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target

If .Value = 1 Then

nCount = 15
Call RunTimer
ElseIf .Value = 0 Then

nCount = 0
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)