Works now, not sure what happened.
charlie

"Charles Woll" wrote in message
...
Moving right along now, I can not get past the Row =
Application.Caller.Row
statement. Program procedes to the errorhandler.

Function Ghin()
'
' Ghin Macro
' Macro recorded 2/25/2005 by Charles Woll
'
On Error GoTo ErrorHandler
Row = 0
Col = 0


Total_plays = 7
Used_Plays = 5
Row = Application.Caller.Row
Col = Application.Caller.Column
i = 0
Cnt = 0
tot = 0
AvgPts = 0
FirstColumn = Range("First_Column").Column
Dim CellValue(9)

--
\\\|///
\\ ~ ~ //
( @ @ )
--oOOo-(_)-oOOo---
Charlie Woll