Overføre nye faneblade kun

Hej, er det muligt at få Excel til kun at importere fanerne en gang, uanset hvor mange gange jeg kører koden. Det er hvis nye faner tilføjes.

Enhver hjælp vil blive meget værdsat.
Mange tak
Klaus W.

Sub Rektangelafrundedehjørner1_Klik()

Path = Range("h1")

Filename = Dir(Path & "*.xlsm")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(worksheets.count)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub