Makro fungerer ikke korrekt

Jeg har 100 ark i et regneark; hvert ark repræsenter et unikt afdelingsnummer. For hver ark ønsker jeg at navngive et printområde (Indsæt, Navn, Definer) for cellerne a1..ae130 med navnet for afdelingen. Når jeg kører nedenstående kode løber den korrekt alle 100 ark igennem men hvert område døbes & sname. Hvad gør jeg forkert ?

Sub Ret_område()

Dim Sname As String

For I = 1 To Sheets.Count
    Sheets(I).Select

Sname = ActiveWorkbook.ActiveSheet.Name
ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
        "='& Sname'!R1C1:R130C31"
Next
End Sub


Med venlig hilsen
Kim Koch