Add OPTION EXPLICIT before your sub and try to compile the code. You'll see
where the problem is.
--
HTH,

Barb Reinhardt



"Eric" wrote:

Does anyone have any suggestions on what wrong is the coding?
If specific cell contains the text "ON", then keep processing the coding,
else skip it and next.
Does anyone have any suggestions on how to fix the coding at Error line?
Thanks in advance for any suggestions
Eric

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

End Sub