Hi Tom and Pikus

Just thought you would like to know the Project is now complete, YEAH! Here is how I did it. Will not know for sure if it works until next week when I have the new set of data. If time permits I will make up some dummy sheets to test it further

x = Sheets.Coun
y = x -
For z = y To
pal = pal + Sheets(z).Range("f16").Valu
Sheets("Totals").Range("B6").Value = pa
Next

Thank you for your hel

Tom