set theCell = ActiveCell
if lcase(theCell.value) = "a" then
thecell.offset(1,0).Value = "b"
End if

--
Regards,
Tom Ogilvy

"Himszy" wrote in message
. ..

"Bob Phillips" wrote in message
...
If worksheetfunction.counta(Rows("37:37")) = 0 Then
Rows(37).entirerow.delete
end if

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Himszy" wrote in message
. ..
Hi

How do I write a code that says that.

Thanks





Relating to this, whats the code for saying that if the cell contans a
enter
the b to the cell beneath it.