Change
With Worksheets("January")
to
With Activesheet
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"parteegolfer"
wrote in message
news:parteegolfer.24knwy_1142192702.1115@excelforu m-nospam.com...
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