Macro that copies sheet and places after the copied sheet every time

Let's see the code

Sub CopyRename()
    Dim sName As String
    Dim wks As Worksheet
    Worksheets("SETUP SHEET").Copy after:=sheet
    Set wks = ActiveSheet
    Do While sName <> wks.Name
        sName = Application.InputBox _
          (Prompt:="Place Sheet Name")
        On Error Resume Next
        wks.Name = sName
        On Error GoTo 0
    Loop
    Set wks = Nothing
End Sub

Hi Dave, this is what i had originally but not what i was looking for. Tanks for the input.

The sheet I'm trying to copy is in the middle of my 40 tab workbook, and the sheet that i copy is in the middle so if i can get it to place exactly after the copied sheet that would be great. But i suck at this....

Originally Posted by davesexcel

    Worksheets("SETUP SHEET").Copy after:=Sheets("SETUP SHEET")

Sorry for the late reply just got back from work, This is what i ended up using thanks Dave!