Hi ,

I need to delete any row which has a blank cell in Column H. But I do not
want to delete the first row because this will have a "Title" even though
Column H is blank.
Thanks

Try this

http://www.rondebruin.nl/specialcells.htm

Change this line
With Columns("A") ' You can also use a range like this Range("A1:A8000")

To

With Range("H2:H" & Rows.Count)

If you want to start in Row 2



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"manfareed" <(E-Mail Removed)> wrote in message newsCDD867A-6778-4698-9E5E-(E-Mail Removed)...
> Hi ,
>
> I need to delete any row which has a blank cell in Column H. But I do not
> want to delete the first row because this will have a "Title" even though
> Column H is blank.
> Thanks

Sub Macro1()
Dim i As Long
Set r = ActiveSheet.UsedRange
i = r.Rows.Count + r.Row - 1
For j = i To 2 Step -1
If IsEmpty(Cells(j, "H")) Then
Rows(j).EntireRow.Delete
End If
Next
End Sub
--
Gary''s Student - gsnu200747


"manfareed" wrote:

> Hi ,
>
> I need to delete any row which has a blank cell in Column H. But I do not
> want to delete the first row because this will have a "Title" even though
> Column H is blank.
> Thanks

Thanks it works

"Gary''s Student" wrote:

> Sub Macro1()
> Dim i As Long
> Set r = ActiveSheet.UsedRange
> i = r.Rows.Count + r.Row - 1
> For j = i To 2 Step -1
> If IsEmpty(Cells(j, "H")) Then
> Rows(j).EntireRow.Delete
> End If
> Next
> End Sub
> --
> Gary''s Student - gsnu200747
>
>
> "manfareed" wrote:
>
> > Hi ,
> >
> > I need to delete any row which has a blank cell in Column H. But I do not
> > want to delete the first row because this will have a "Title" even though
> > Column H is blank.
> > Thanks

Thanks for the link



"Ron de Bruin" wrote:

> Try this
>
> http://www.rondebruin.nl/specialcells.htm
>
> Change this line
> With Columns("A") ' You can also use a range like this Range("A1:A8000")
>
> To
>
> With Range("H2:H" & Rows.Count)
>
> If you want to start in Row 2
>
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "manfareed" <(E-Mail Removed)> wrote in message newsCDD867A-6778-4698-9E5E-(E-Mail Removed)...
> > Hi ,
> >
> > I need to delete any row which has a blank cell in Column H. But I do not
> > want to delete the first row because this will have a "Title" even though
> > Column H is blank.
> > Thanks
>