Comment modifier le Path (Chemin en cours)

Je vous explique,

Je souhaiterait généralisée cette macro qui a pour but de déplacer/copier un onglet dans un nouveau classeur:

Sub Macro1()

Sheets("Classeur1").Select
Sheets("Classeur1").Copy Before:=Workbooks("Classeur1.xls.xls").Sheets(1)
Windows("Classeur1.xls").Activate

End Sub

Seulement ce code ne fonctionne que pour deplacer/copier l'onglet du "Classeur1" au "Classeur1.xls".

Comment faire pour que le Path ne soit pas figé ?

Merci d'avance.