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