If there are no values in row 37 delete it

[Himszy]

Hi

How do I write a code that says that.

Thanks

 

[Frank Kabel]

Hi
see:
http://www.cpearson.com/excel/deleting.htm#DeleteBlankRows

 

[Ron de Bruin]

Hi Himszy

Try this for the activesheet

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

 

[Bob Phillips]

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]

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)

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

 

[Tom Ogilvy]

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