Just remove "Set"

Regards,
Peter T


"R Tanner" wrote in message
...
Hi,

I have been trying to write a procedure that modifies the primary
horizontal axis. Here is the code:

Set Charts("Main").Axes(xlCategory).CategoryNames = _
Worksheets("Sheet1").Range("D84:I84")

When I try to run it, I get 'Subscript out of Range'

Does anyone know what I'm doing wrong?