在页脚中引用指定单元格内容，同时设置页脚字号

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 如果监视区域内容被修改，则自动修改页脚设置
    If Not Intersect(Target, Me.Range("D1")) Is Nothing Then
        With Me.PageSetup
            .LeftFooter = Me.Range("A1").Value & Me.Range("D1").Value & Me.Range("E1").Value
        End With
    End If
End Sub

用代码更新页脚文字后，页脚字号会自动恢复为默认字号，可以在代码中重新指定字号：

        With Me.PageSetup
            ' 页脚内容前面加上 “&” + 字号 为前导，用来指定页脚字号
            .LeftFooter = "&9" & Me.Range("A1").Value & Me.Range("D1").Value & Me.Range("E1").Value
        End With