Sub AggionaMargini()
Dim myLeftMargin As Single
Dim myRightMargin As Single
Dim myTopMargin As Single
Dim myBottomMargin As Single
Dim myHeaderMargin As Single
Dim myFooterMargin As Single
Dim i As Integer
Dim Nome As String

'legge i margini del Foglio1
With Sheets("Foglio1").PageSetup
    myLeftMargin = .LeftMargin
    myRightMargin = .RightMargin
    myTopMargin = .TopMargin
    myBottomMargin = .BottomMargin
    myHeaderMargin = .HeaderMargin
    myFooterMargin = .FooterMargin
End With

For i = 1 To Sheets.Count
   Nome = Sheets(i).Name
    
    If i > 1 Then 'controlo che non sia il primo foglio
        'aggiorno la formula
        With Sheets(i)
            'in A5 mette il valore A5 del foglio precedente
            .Cells(5, 1).Formula = "=Foglio" & i - 1 & "!a5"
        End With
        
        'aggiorno i margini come nel foglio1
        With Sheets(Nome).PageSetup
            .LeftMargin = myLeftMargin
            .RightMargin = myRightMargin
            .TopMargin = myTopMargin
            .BottomMargin = myBottomMargin
            .HeaderMargin = myHeaderMargin
            .FooterMargin = myFooterMargin
        End With
    End If
Next
     
End Sub