Using a variable in multiple macros

[cdex]

Hello, I am trying to get a counter to add 1 every second to a cell. I want that cell to be the active cell at the time of starting the macro but allow you to select other cells while it is running. This is the code i have got so far:

Sub startcounter()
Dim mycell As Range
mycell = ActiveCell.Address
startcounter2
End Sub
Sub startcounter2()
Application.OnTime Now + TimeValue("00:00:01"), "incrementcount"
End Sub
Sub incrementcount()
Range(mycell).Value = Range(mycell) + 1
startcounter2
End Sub

Sub stopcounter()
Application.OnTime Now + TimeValue("00:00:01"), "incrementcount", schedule:=False
End Sub

Any help would be greatly appreciated.

Thanks

[Norie]

Try this.

Option Explicit

Dim mycell As Range

Sub startcounter()
    Set mycell = ActiveCell
    startcounter2
End Sub

Sub startcounter2()
    Application.OnTime Now + TimeValue("00:00:01"), "incrementcount"
End Sub

Sub incrementcount()
    mycell.Value = mycell.Value + 1
    startcounter2
End Sub

Sub stopcounter()
    Application.OnTime Now + TimeValue("00:00:01"), "incrementcount", schedule:=False
End Sub

[cdex]

Thanks that is perfect.