Kopi af aktivt sheet, +omdøb m. msgbox

Public Sub NySide()
    Dim Navn As String
    ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    Navn = InputBox("Indtast navnet på den nye side")
    ActiveSheet.Name = Navn
    [A4] = Navn
End Sub

Det er flueknepperi, men sheetet bliver sat ind som første fremfor sidste..
Ellers er det lige præcis det jeg ledte efter!

#kabbak - Hvad skriver jeg for at få den sidst?

Den skulle sætte ind efter den sidste, da jeg tæller antal ark, og siger after:

Hm, ja det sad jeg også og studsede over, og den kommer selvfølgelig også "After", det er bare mig der er vandt til at køre i "arabisk" rækkefølge når jeg læser sheets :D

Du behøver ikke gøre mere, det er helt perfekt nu, takker!

Selvom koden virkede fint, besluttede jeg mig alligevel for at arbejde videre med den. Jeg har lavet denne som virker perfekt.

Sub NytSheet()
Application.ScreenUpdating = False
Dim Skema As Worksheet
Dim Navn As String

Navn = InputBox("Skriv navnet på det nye sheet", "Nyt sheet")

If Navn = "" Then Exit Sub

For Each Skema In Worksheets
    If Skema.Name = Navn Then
        MsgBox "Skemaet eksisterer i forvejen"
        Exit Sub
    End If
Next Skema
Sheets(1).Copy before:=Sheets(1)
Sheets(1).Name = Navn
Sheets(Navn).Move After:=Sheets(Sheets.Count)

Application.ScreenUpdating = True
End Sub

Her kan man kopiere hele ens aktive skema vha. en inputbox. Hvis man trykker cancel bliver intet kopieret, og hvis man skriver navnet på et sheet der findes i forvejen, får man en advarsel. Violá