Macro to delete columns (with headers) that are blank or contain a 0

[saraapple]

I have a master sheet with 240 columns, every column has a title (cells A1,B1 etc.)
I need to delete the columns which are blank or contain 0 but my data is text, times and numbers.
All the macros I have found delete the text can anyone assist?
Thank you
Sara

 

[Fluff]

How about

Sub saraapple()
   With Range("1:1")
      .Replace 0, "", xlWhole, , , , False, False
      On Error Resume Next
      .SpecialCells(xlBlanks).EntireColumn.Delete
      On Error GoTo 0
   End With
End Sub

 

[saraapple]

Thank you so much for the quick reply! I have tried the code and nothing happens - it runs fine but the data does not change.
I wondered if I needed to add it to the code I found that does not quite work but still cant get anything to work.
If it helps the code I found is:

Sub DeleteBlankColumns() 'Step1: Declare your variables.
Dim MyRange As Range
Dim iCounter As Long
'Step 2: Define the target Range.
Set MyRange = ActiveSheet.UsedRange

'Step 3: Start reverse looping through the range.
For iCounter = MyRange.Columns.Count To 1 Step -1

'Step 4: If entire column is empty then delete it.
If Application.CountA(Intersect(MyRange.Offset(3), Columns(iCounter))) = 0 Then
Columns(iCounter).Delete
End If
'Step 5: Increment the counter down
Next iCounter

End Sub

THIS IS NOT MY CODE - but it does work fine deleting the columns which are blank but also that contain text.
I was thinking perhaps amending this code to recognise text (so not delete) and also see a "0" as a blank so delete also.

Thank you as always

 

[Fluff]

I misunderstood, I thought you wanted to delete the column if the header was blank or 0.
That code should not delete columns that contain text