Copy/Paste formulas across multiple sheets

**Sleepyshy** · 12-18-2012, 07:37 PM

Good day all,

I seem to be having trouble with a code I am writing that will:
1) Check the value of Cell(A1) to see if it even needs to copy formulas
2) If Cell(A1) has the correct value to then copy the formula in Cell(B2) and paste it on to Cells(B2:'x'y')
3) Move on to the next Sheet in the workbook

I am still learning vba so I am very often screw up basics.

This is what I have been trying:

Please Login or Register  to view this content.

It is telling me "Run-time Error '424': Object Required" And highlights the line:

Please Login or Register  to view this content.

Any ideas would be very helpful.

**Sa DQ** · 12-18-2012, 08:07 PM

PHP Code:


Option Explicit

Sub FillFormulas()

 Dim i As Long:                     Dim Sh As Variant



 For Each Sh In ThisWorkbook.Worksheets

    With Sh

        If .Range("A1").Value = 1 Then

            .Range("B2").Copy

            .Range("B2:FA300").PasteSpecial xlPasteFormulas

        Else

            MsgBox Sh.Name

        End If

    End With

 Next Sh

End Sub