Right Tom, no spaces in names. Uh, I knew that. Time to turn in for me.

"Bob Kilmer" wrote in message
...
Sorry. First response didn't have a space before "Depot".

Set wksT = GetWorksheet(wks.Parent, _
Left(cell.Text, 8) & " Depot")

If you want the whole name, plus " Depot" use:

Set wksT = GetWorksheet(wks.Parent, _
cell.Text & " Depot")



"Steved" wrote in message
...
Hello From Steved

Set wksT = GetWorksheet(wks.Parent, _
"Sheet" & Left(cell.Text, 2))

I've made Changes to the above

Set wksT = GetWorksheet(wks.Parent, _
"" & Left(cell.Text, 8))

It now names the sheet "Papakura" instead of SheetPapakura.
Please what Do I enter in the above code to add Depot
as an example "Papakura Depot".

Thankyou.