Transfering text from a cell to a shape

Hi,

I am completely confused and I know its probably something very simple I am doing wrong which is why I am asking you guys.

I am trying to dump some text from a cell into a shape on another sheet and this section of the code doesn't seem to be working:

ActiveWorkbook.Sheets("Project PSR").Activate
ActiveSheet.Shapes("CurrentKeyPriorities").Select
Selection.Characters.Text = "1. " & Priority1Range.Value & Chr(10) & _
                            "2. " & Priority2Range.Value & Chr(10) & _
                            "3. " & Priority3Range.Value & Chr(10) & _
                            "4. " & Priority4Range.Value & Chr(10) & _
                            "5. " & Priority5Range.Value & Chr(10) & _
                            "6. " & Priority6Range.Value & Chr(10) & _
                            "7. " & Priority7Range.Value & Chr(10) & _
                            "8. " & Priority8Range.Value & Chr(10) & _
                            "9. " & Priority9Range.Value & Chr(10) & _
                            "10. " & Priority10Range.Value

When I say it isn't working it is not bugging out on me and having tried to debug the code line by line the code definitely selects the shape (called "CurrentKeyPriorities") and it also picks up the values of all the Variables (Priority1Range e.t.c - by the way the variable type for these variable is 'range'). Where it isn't working is that none of these values are entered into the shape. The other reason I am confused is that I have a practically identical code in another workbook which works fine.

Any assistance would be very much appreciated.

Cheers
Tony