Visual basic code to insert a confidentiality statement

[vickiecroft]

I have a workbook that has over 60 worksheets. I would like to add our Confidentiality Statement at the bottom of each worksheet. I would like a macro that would add the statement on row 40 for each worksheet inside this workbook. The statement is too long to add to the footer, I receive an error message about only holding 255 characters.

 

[John_w]

Sub acs()

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Cells(40, "A").Value = "Confidentiality Statement"
    Next
    
End Sub