I posted this in a different form before. I appreciated the replies,
but they didn’t work for me. I will post this hoping that someone can
help me with this version of the problem.

ActiveSheet.Range("A1").Select
ActiveCell.Offset(0, 1).Range("A1").Select

‘What I’m looking for is to be able to name a range in the following
manner after the 2 ‘lines above.
‘The range name will be the word “Junk” plus the value of the
range name ‘TempNumber
‘EXAMPLE: if the value of TempNumber is “XXX”, then the new range
name
‘will be JunkXXX

Thanks for your help,
jeff