Hallo,
wenn ich mit nachfolgendem Makro die Datei "Kasse" importieren möchte erscheint die Fehlermeldung

Der Name "Ostern" ist bereits vorhanden. Klicken Sie auf "Ja" um diese Version der Namens zu verwenden, oder klicken Sie auf "Nein" um die Version von "j" die Sie verschieben oder Kopieren möchten, umzubenennen.
Klicke ich auf "Ja", kommt das gleiche Spiel mit "j", dann "x" dann "y".
Klicke ich auf Alle wird die Datei importiert.
Wo kann mein Fehler liegen.
Im Namensmanager gibt es keine Namen!

Danke!
Gruß
Mirel

Sub ImporSheet()
Dim fileName As String
Dim wb As Workbook
Dim ws As Worksheet
fileName = ThisWorkbook.Path & "\ARCHIV\Kasse.xlsx"
Set wb = Workbooks.Open(fileName)
Set ws = wb.Worksheets("Kasse")
Hier erscheint die Meldung
ws.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
wb.Close savechanges:=False
End Sub