Hi Dolphinv4,

I have had the same problem with Range, the macro looks like it should
work, but doesn't.

The solution is that Range sometimess needs to be in the format
-expression-.range. For your macro try:

myAdjName = Format(*Worksheets(1).*Range("A1").Value, "mmm") & "(ADJ)"

Adjust the Worksheets(x) value accordingly.

HTH

Art


--
HiArt
------------------------------------------------------------------------
HiArt's Profile: http://www.excelforum.com/member.php...o&userid=19953
View this thread: http://www.excelforum.com/showthread...hreadid=472032