You have declare a variable named "lngRow" (starts with a lower case
"L") and you are using in your conditional "IngRow" (starts with an
upper case "I").

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com



On Mon, 19 Apr 2010 09:31:01 -0700, Eric
wrote:

Sub aUpdating()

Dim lngRow As Long, ws As Worksheet, wsDate As Worksheet

Set wsDate = Sheets("Date")
For lngRow = 2 To wsDate.Range("E1").Value

If wsDate.Range("F" & IngRow).Value = "ON" Then ' Error on this line

'Do something

End If
Next