By using vba.booksticle.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

948 Steps to 6 Figures by Learning Excel-VBA and Other Skills

Step 198 - Footer

Sub FormatFooterDate()

    If InStr(1, ActiveSheet.PageSetup.RightFooter, "Generated by Credit Report Engine") > 0 Then
        ActiveSheet.PageSetup.RightFooter = _
            "&""Arial,Italic""" & ThisWorkbook.Sheets("Template").Cells(7, 1) & "&""Arial,Regular""" & _
            Chr(10) & "&""Arial,Italic""" & ThisWorkbook.Sheets("Template").Cells(8, 1)
    End If

End Sub