look at the trim function it may help

"Barb Reinhardt" wrote in message
...
I need to define a value for rangename. I have this working so far:

rangename = Workbooks(curbook).Worksheets(datasheet).Range("a" &
i).Value
Debug.Print rangename

Unfortunately, the range name has SPACES in it and when I use it to create
a
named range, it GACKS. How do I remove the spaces from this?

Thanks,
Barb Reinhardt