Don, all the blank columns will be at the end of the range. I want to
eliminate them and then set the graph parameters to the resulting range.
Davie
> Please RE-read my question.
>
[quoted text clipped - 21 lines]
> >> >
> >> > Davie
something like this should do it for you. Assumes last data has something in
row TWO
Sub hidecolumns()
lc = Cells(2, Columns.Count).End(xlToLeft).Column + 1
'MsgBox lc
Range(Cells(1, lc), Cells(1, 20)).EntireColumn.Hidden = True
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Don, all the blank columns will be at the end of the range. I want to
> eliminate them and then set the graph parameters to the resulting range.
[quoted text clipped - 31 lines]
>> >> >
>> >> > Davie