Worsheet Activate code

[adamsm]

Hi,

I'm trying to figure out a worksheet activate event code that would insert the text "Total" to the column B below the last data row. And also insert the formula =SUBTOTAL(109,T17:T1048572) to column T below the last data row.

Any help on this would be kindly appreciated.

Thanks in advance.

 

[adamsm]

Here is the code I've got so far. The code inserts the text "Total" when the code is placed in a standard module. But It is not working when placed in a worksheet module.

What have I done wrong here?

Private Sub Worksheet_Activate()
    Dim m As Long
    With Worksheets("MySheet")
        m = .Cells(.Rows.Count, 2).End(xlUp).Row
        If Not .Cells(m, 4) = "Total" Then
            .Cells(m + 1, 4) = "Total"
            .Cells(m + 1, 4).Font.Bold = True
        End If
    End With