I have this small table within my Excel spreadsheet, but is there a way i can automatically ignore or delete columns that are empty? say in between the min stay and the max stay columns?


Class Min Stay Max Stay
M 2 Nts/Sat Night 6 Months
Q 2 Nts/Sat Night 3 Months
W 2 Nts/Sat Night 3 Months
E 2 Nts/Sat Night 1 Month
N 2 Nts/Sat Night 1 Month


www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt

__________________
_______________________
Ayrshire Minis - a Mini E-Community
http://www.ayrshireminis.com
http://www.crmpicco.co.uk

Hi

Try this one

Sub DeleteColumns()
Dim i As Integer
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
    If WorksheetFunction.CountA(Columns(i)) = 0 Then
        Columns(i).Delete
    End If
Next
End Sub

-vemaju