HELP! I am trying to loop thorugh all the worksheets in a book and count the value of a cell if a coreesponding cell matches the desired value. I then want to report the sheet totals on a summary sheet
PROBLEM: I can separate & differentiate which total comes from which sheet
Here what I tried

Sub mv(
v1 = "sale
For z = 1 To (Sheets("NT").UsedRange.SpecialCells(xlLastCell).R ow
For y = 1 To Worksheets.Coun
For Each s In Sheet
x =
If s.Cells(z, 6) = v1 Then x = x + s.Cells(z, 4
Cells(y, 1) =
Nex
Next
Next
End Su

Grateful for any help.