I need to write a macro to delete all rows where column A is blank. Can
anyone help me with this please?
--
Thank you, Jodie

Try some code like the following. Change the value "Sheet1" to the
appropriate worksheet name.


Sub AAA()
Dim LastRow As Long
Dim RowNdx As Long
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
With WS
LastRow = .UsedRange.SpecialCells(xlCellTypeLastCell) _
.EntireRow.Cells(1, "A")
For RowNdx = LastRow To 1 Step -1
If .Cells(RowNdx, "A").Value = vbNullString Then
.Rows(RowNdx).Delete
End If
Next RowNdx
End With
End Sub

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]



On Thu, 10 Dec 2009 13:59:01 -0800, Jodie
<(E-Mail Removed)> wrote:

>I need to write a macro to delete all rows where column A is blank. Can
>anyone help me with this please?

Try this

Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

"Jodie" <(E-Mail Removed)> wrote in message
news:8EC6D56C-362F-4DDF-93B3-(E-Mail Removed)...
> I need to write a macro to delete all rows where column A is blank. Can
> anyone help me with this please?
> --
> Thank you, Jodie

Warning: Look out with SpecialCells

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




--

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


"Homey" <noname> wrote in message news:(E-Mail Removed)...
> Try this
>
> Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
>
> "Jodie" <(E-Mail Removed)> wrote in message
> news:8EC6D56C-362F-4DDF-93B3-(E-Mail Removed)...
>> I need to write a macro to delete all rows where column A is blank. Can
>> anyone help me with this please?
>> --
>> Thank you, Jodie
>

Do you really need a macro?

Select column A

F5>Special>Blanks>OK

Edit>Delete>Entire Row


Gord Dibben MS Excel MVP


On Thu, 10 Dec 2009 13:59:01 -0800, Jodie <(E-Mail Removed)>
wrote:

>I need to write a macro to delete all rows where column A is blank. Can
>anyone help me with this please?

Yes Gord, I will be adding this to another macro and be using it multiple
times for spreadsheets of different sizes.
--
Thank you, Jodie


"Gord Dibben" wrote:

> Do you really need a macro?
>
> Select column A
>
> F5>Special>Blanks>OK
>
> Edit>Delete>Entire Row
>
>
> Gord Dibben MS Excel MVP
>
>
> On Thu, 10 Dec 2009 13:59:01 -0800, Jodie <(E-Mail Removed)>
> wrote:
>
> >I need to write a macro to delete all rows where column A is blank. Can
> >anyone help me with this please?
>
> .
>

OK

Thanks for posting.

I think others gave you the code.


Gord

On Mon, 14 Dec 2009 06:30:01 -0800, Jodie <(E-Mail Removed)>
wrote:

>Yes Gord, I will be adding this to another macro and be using it multiple
>times for spreadsheets of different sizes.