Sub CleanUpData()
Dim rng as range, rng1 as range
On Error resume Next
Range("C:D").Specialcells(xlConstants,xlTextValues ).EntireRow.Delete
Range("C:D").SpecialCells(xlFormulas(xlTextValues) .EntireRow.Delete
Range("C:D").SpecialCells(xlBlanks).entirerow.Dele te
On Error goto 0
End sub

--
Regards,
Tom Ogilvy






"Mitch" wrote in message
...
When you select an embeded scatter chart the x-data and y-data range is
automatically bordered (in the source data table) by Excel. You are able
to
alter the range included in the chart by sliding the hot-spot of the
border
to resize it. If it is possible I would like to retrieve the range (in A1
format) of the newly resized border. This is to be part of an interactive
chart modifying procedure in VBA. Does anyone have an idea of how to
capture
the new range?