Hi

How do I write a code that says that.

Thanks

Hi
see:
http://www.cpearson.com/excel/deleti...eleteBlankRows

--
Regards
Frank Kabel
Frankfurt, Germany
"Himszy" schrieb im Newsbeitrag
. ..
Hi

How do I write a code that says that.

Thanks

Hi Himszy

Try this for the activesheet

If Application.CountA(Rows(37)) = 0 Then Rows(37).Delete


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himszy" wrote in message . ..
Hi

How do I write a code that says that.

Thanks

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

"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.

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.