you can't have spaces in sheet names.

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

--
Regards,
Tom Ogilvy


"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.