Delete empty Column with heading VBA

[ojhawkins]

Hi all again,

I am am wanting to delete the entire column if there are no entires below the heading in Row 1.

So in image below, Col C, E & G are to be delete including the heading.

Thanks again everyone

Cheers,
O

 

[Dannyh1]

Hi,

Try:

Sub DELCOL()
Dim rng As Range
Dim lastrow As Long
Dim colnme As String
Dim cl
 
Set rng = Range("A1:G1")
 
For Each cl In rng
 
colnme = Left(cl.Address(0, 0), (cl.Column < 27) + 2)
 
lastrow = Cells(Rows.Count, colnme).End(xlUp).Row
 
    If lastrow = 1 Then
 
    cl.EntireColumn.Delete
 
    End If    
 
Next cl
 
End Sub