opret nyt ark i vba

Lidt primitiv, men løser sikkert opgaven

Sub Macro1()
    Range("A1").Copy 'her indsætter du selv det du vil have kopieret
    On Error GoTo opretark
    Sheets("test").Activate
    On Error GoTo 0
    Range("A1").Offset(0, Application.WorksheetFunction.CountA(ActiveSheet.Range("1:1"))).Select
    ActiveSheet.Paste
    Exit Sub
   
opretark:
   
    Sheets.Add
    ActiveSheet.Name = "test"
    ActiveSheet.Paste
End Sub

Hvordan får man den til kun at indsætte et nyt ark en gang og ikke hver gang man kører sub'en???

Har du prøvet at køre den ?
Hvis arket "test" ikke findes hopper den til opretark hvor et nyt ark med navnet "test" bliver oprettet

On Error GoTo opretark
    Sheets("test").Activate

den skriver label not defined ved on error goto opretark???
Hvad skal jeg så?

du skal jo kopier det hele ind også
opretark:        'dette er labelen
   
    Sheets.Add
    ActiveSheet.Name = "test"
    ActiveSheet.Paste

jeg har kopieret det nøjagtig som du har skrevet det...??

Jeg har fået det til og virke
Tusind tak for hjælpen. Du har lige reddet min dag :-)

ok ellers er eksemplet her
http://www.excel.frac.dk/opretkopi.xls

bak> her er den rigtige funktion
http://www.win-consult.com/Tips/LibrarySource.asp?App=Excel&Lib=SheetsExists

Løsningen kunne se således ud:

Public Sub OscarCopy()
    If Not SheetExists("Test") Then
        Sheets.Add
        Activesheet.Paste
    End If

    ' Kode til at kopiere
End Sub

Public Function SheetExists(ByRef SheetName As String) As Boolean
    On Error Resume Next
    SheetExists = ActiveWorkbook.Worksheets(SheetName).Index
End Function