Or, if you'd prefer a formula:

=MIN(1,SUMPRODUCT(--(A1:Z1<"")))

or

=MIN(1,COUNTA(A1:Z1))

This second formula will consider a blank "" returned by a formula as a
value, whereas the first formula will not.

HTH,
Elkar


"Chip Pearson" wrote:

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