Dim lR As Long
With Sheets("Sheet1")
For lR = 1 To .Cells(.Rows.Count, "F").End(xlUp).Row
If WorksheetFunction.IsNumber(.Cells(lR, "F")) And _
Not .Cells(lR, "F").HasFormula Then
.Cells(lR, "F") = .Cells(lR, "F") + 1
End If
Next
End With
--
Regards,
Nigel
"Workbook" wrote in message
...
Is there a code that will scan every even cell in column F for a quantity
and
if it finds a quantity it will add a 1 to the quantity?