Need to apply VBA code to multiple Worksheets

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

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]...
>
> 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
>
>
> --
> parteegolfer
> ------------------------------------------------------------------------
> parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
> View this thread: http://www.excelforum.com/showthread...hreadid=521533
>

Thanks Bob this worked well!