Try something along the lines of

Dim RowNum As Long
RowNum = 1 '<<< CHANGE AS REQUIRED
If Application.CountA(Rows(RowNum)) 0 Then
Cells(RowNum, "AA").Value = 1
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"Jase4now" wrote in message
...
I need to write an IF statement that will look at all the cells in a row,
and
if it finds anything, letters or numbers, it then places a "1" in the AA
column of that row.

Thanks