VBA to Loop & Paste same data to all worksheets

[mlgill]

Struggling with this. I'm trying to take columns A, B & C in "sheet1" and paste it into all the other sheets within the workbook. My first 2 loops work flawlessly, but the code in BOLD shown below bombs. I greatly appreciate any help on this - THANKS!

Sub Z_Font()

Dim iwsCount As Integer
Dim I As Integer

' Set 'wsCount equal to the number of worksheets in the active workbook
iwsCount = ActiveWorkbook.Worksheets.Count

' Begin the Loop
For I = 1 To iwsCount
Sheets(I).Select
With Sheets(I).Cells
    With .Font
        .Name = "Arial"
        .Size = 8
    End With

    Range("A1").Select
        Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    
' trying this code for the heck of it

    Sheets("Sheet1").Select
    Columns("D:F").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
End With
     
Next I

End Sub

[pike]

Hi mlgill

maybe something like...

Sub ptest()
    Myarray = Array("Sheet2", "Sheet3", "Sheet4")
    For Each xSheet In Myarray
        Worksheets("Sheet1").Columns("A:C").Copy
        With Sheets(xSheet).Columns(1)
            .Insert Shift:=xlToRight
        End With
    Next
End Sub