Delete column where a Zero appears in same row as Total

[howard]

I have text total in Col A


I need a macro that where there is a zero in the same row as "total" in Col A , then all the columns containing the zero in the same row as Total to be deleted



Your assistance in this regard is most appreciated

 

[RedWolf3x]

Is Total mentioned more than once in Column A?
How many Columns out are you looking for 0?

 

[howard]

The Total appears only once in Col A

There could be between 1 and 15 columns which sums up to zero-see sampole data below

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	21555	115		23005.62				985		115		-23005.6	1215
2	21599	95		274770.2		-241027		684	-0.02	250		-33743.7	1028.48
3	21692	-210	-222429	228739	2203.42	241027		-1669	0.02	95		-8513.01	239243
4	21894						-174867			-460	-2164683	65262.34	-459.98
5	Total	0	-222429	526514.8	2203.42	0	-174867	0	0	0	-2164683	0	241026.5
Sheet1

Cell Formulas
Range	Formula
M1	=SUM(B1:L1)

 

[Fluff]

How about

Sub DelZero()
   Dim i As Long
   Dim Fnd As Range
   
   Set Fnd = Range("A:A").Find("Total", , , xlWhole, , , False, , False)
   If Fnd Is Nothing Then Exit Sub
   For i = Cells(Fnd.row, Columns.Count).End(xlToLeft).Column To 2 Step -1
      If Cells(Fnd.row, i).Value = 0 Then Columns(i).Delete
   Next i
End Sub

 

[howard]

Thanks for your help, much appreciated

 

[Fluff]

You're welcome