Dim num As Long
Dim fOK As Boolean
Dim sh As Worksheet

num = 5
fOK = False
Do
Set sh = Nothing
On Error GoTo 0
Set sh = ThisWorkbook.Sheets("DOS" & num)
On Error GoTo 0
fOK = Not sh Is Nothing
If fOK Then
bk.Sheets("DOS" & num).Copy
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt)
Else
num = num + 1
End If
Loop Until fOK

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Cathy W" wrote in message
...
Hello. I am using the following code to copy a worksheet named DOS5 into
a
workbook that already has a sheet called DOS5. When it gets copied I
would
like to rename it to the next sequential sheet number (ie: DOS6). Can
someone help?

bk.Sheets("DOS5").Copy
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt)

Thanks,
Cathy