PaddyD thanks for your help. I am most greatfull.
That almost works perfect, but when I add a filter as you suggest, the row stays hidden even when the data changes and cell no longer has a zero value. Can the filter be made to reflect changes in the data.
Since my original post I have come up with a macro to hide the columns in which there was a zero value. It also unhides the columns when the value is not zero.(I had the data in a row, for the filter they had to be in a column)
Sub HideColIfZero()
'Hides column(s) with zero so chart does not show zero or it's coresponding label entry.
For Each C In Worksheets("Sheet1").Range("S2:Z2")
If C.Value = 0 Then
C.Activate
Selection.EntireColumn.Hidden = True
End If
Next C
For Each C In Worksheets("Sheet1").Range("S2:Z2")
If C.Value <> 0 Then
C.Activate
Selection.EntireColumn.Hidden = False
End If
Next C
End Sub