Problème avec For eash sh in sheets et sh.name

Bonjour,

J'ai un problème avec la boucle for. J'ai un code test qui consiste à regarder chaque nom de mes feuilles et les copier un à un sur des lignes différentes. Il y a un compteur qui commence à 0 et qui se trouve dans une cellule et qui s'incrémente à chaque fois qu'un nom de feuille est écrit dans la feuille. Mais ça me dit "Membre de méthode ou de données introuvable" et me surligne le sh.Name. Pouvez-vous m'aider s'il vous plait?

sub test()

Dim sh As Sheets
compteur = Cells(3, 10).Value

For Each sh In Workbooks("Test").Sheets

Cells(6 + compteur, 4) = sh.Name
Cells(3, 10) = compteur + 1

Next sh

End sub


Merci!