Yes, that will work for a single series category style chart and I guess
that is what you have. Glad you have a solution.

--
regards,
Tom Ogilvy

"Bryan via OfficeKB.com" wrote in message
...
Actually, I just got help from someone else on how to do this:

-----------
Dim myChartRange As Range
With Selection
For k = 1 To .Rows.Count
If .Cells(k, 2) 0 Then
If myChartRange Is Nothing Then
Set myChartRange = .Rows(k)
Else
Set myChartRange = Union(myChartRange, .Rows(k))
End If
End If
Next
End With
-----------

Thanks anyway.

--
Message posted via http://www.officekb.com