For Each sh In Activeworkbook.Worksheets
If Left(sh.name) = "C" Then
sh.Copy After:=Worksheets(Worsheets.Count)
End If
Next sh

--
HTH

Bob Phillips

"JMG" wrote in message
ups.com...
How can i select more worksheets without using
SHEETS(ARRAY("Sheet1","Sheet2")) ?

I have 12 sheets, and 5 of them are named with beginning "C "
and i want to copy all of them in once. How can i?