For Each sh In Activeworkbook.Worksheets
Msgbox sh.name & ", " & Application.Countif(sh.Range("A:A"),"D")
Next sh

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Robert" wrote in message
...
I have a Workbook with 6 spreadsheets. The first column in each
spreadsheet
has the capitol letter 'D' in certain cells. I need to know how many
times a
'D' appears in the first column of each spreadsheet. This total will be
on
the last spreadsheet only.

I know this is elementary but I do not know much about VBA.
Many Thanks to anyone who will help!
--
Robert Hill