Need to apply VBA code to multiple Worksheets

[parteegolfer]

I have this code listed below which is in a macro module. Is there a way
that I can apply this code to only the worksheet I am working in. I have
worksheets labeled January thru December and need to distinqiush between
the sheets.

Dim rng As Range
Dim lastrow As Long, r As Long, i As Integer
With Worksheets("January") <<----This needs to be a variable for each
sheet
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
r = 1
srow = r
Do
Do
r = r + 1
Loop Until .Cells(r, "a") = "Weekly Subtotal" Or r >= lastrow
For i = 4 To 6
Set rng = .Range(.Cells(srow, i), .Cells(r - 1, i))
Cells(r, i) = Application.Sum(rng)
Next i
srow = r + 1
Loop Until srow > lastrow
End With

 

[Bob Phillips]

Change

With Worksheets("January")

to

With Activesheet


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"parteegolfer" <[email protected]>
wrote in message
news[email protected]...

 

[parteegolfer]

Thanks Bob this worked well!