VBA Excel: Opret sheet med bestemt navn

F.eks. sådan:

Dim oSheet As Worksheet

'Slet "testsheet" hvis det findes
For Each oSheet In Worksheets
    If oSheet.Name = "testsheet" Then
        'Undgå visning af advarsel
        Application.DisplayAlerts = False
        oSheet.Delete
        'Slå advarsler til igen
        Application.DisplayAlerts = True
        Exit For
    End If
Next oSheet

'Tilføj "testsheet" efter øvrige sheets
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "testsheet"

'Ryd op
Set oSheet = Nothing

det var især den her jeg skulle bruge

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "testsheet"

Tak...

Du kan vel ikke lige fortælle om hvordan man i VBA Excel tjekker om en eller anden textfil eksisterer?

A la:

If fileexists("C:\hej.txt") then
  msgbox "Filen eksisterer"
end if

Og læg et svar :o)

Dim fs As Object
 
    Set fs = CreateObject("Scripting.FileSystemObject")
   
    If fs.fileexists("C:\hej.txt") = True Then
        msgbox "Filen eksisterer"
    End If
   
    Set fs = Nothing

hvad skal de forskellige variable erklæres som?

og kan man gøre det uden filesystemobject?

Erklæringen af fs (Object) er med - se øverste linje. Det er den eneste variable, der er brugt.

fs.fileexists("C:\hej.txt") -

"object doesnt support this property or method..."

må hellere oprette et nys spørgsmål