Snasui Excel Forum

Code: Select all

        Range("W3").Select
            ActiveCell.FormulaR1C1 = "=cal_1!R[4]C[-21]"

Code: Select all

        Rows("6:6").Select
        Selection.AutoFilter

Code: Select all

        Range("Z2").Select
            ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R7C26:R65536C26)"

Code: Select all

           Range("Z2:AB2").Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Application.CutCopyMode = False

Code: Select all

        Range("W2:AB3").Select
            Selection.ClearContents

Code: Select all

        Range("W3").FormulaR1C1 = "=cal_1!R[4]C[-21]"

Code: Select all

        Rows("6:6").AutoFilter

Code: Select all

        Range("Z2").FormulaR1C1 = "=SUBTOTAL(9,R7C26:R65536C26)"

Code: Select all

           Range("Z2:AB2")=Range("Z2:AB2").value

Code: Select all

        Range("W2:AB3").ClearContents