COUNTIF across all worksheets of the same workbook

I need to count the frequency/occurance of strings "Manager", "Clerk", "HR" etc. that occur in the exact same column in multiple worksheets of a single workbook.
COUNTIF works ok on a single sheet query but the formula is getting bigger if there are number of worksheets.

Please help me in simplyfing the formula. Also is there anyway to put the formula on the column instead of row wise. I can use a single formula on the column instead on every row in Adminsheet.

To be clear my requirement is to count the occurrence of a search strings listed in Adminsheet column A across all worksheets and display count in Adminsheet column B


Attaching the excel.

Thank you,
Pratap

Thanks Robert for the reply. cant we make it simple without any lists. I want count across all the sheets I feel like we shouldnot bother about the sheet names and lists.

Can we create a formula counts across all sheets? (My idea is to eliminate sheet names completely so that same formula can be used across other simliar excels with minimal changes)

Thanks

Thanks again.

can you help how to create this

"Using Name Manager create a list of your tabs"

You can also use a macro for this:

Sub Rectangle1_Click()
 Dim iSheet As Integer
  On Error Resume Next
  Worksheets("Adminsheet").Range("B2:E2").Value = 0
  For i = ThisWorkbook.Sheets.Count To 2 Step -1
   Worksheets("Adminsheet").Range("B2").Value = Worksheets("Adminsheet").Range("B2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Manager")
   Worksheets("Adminsheet").Range("C2").Value = Worksheets("Adminsheet").Range("C2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Clerk")
   Worksheets("Adminsheet").Range("D2").Value = Worksheets("Adminsheet").Range("D2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Programmer")
   Worksheets("Adminsheet").Range("E2").Value = Worksheets("Adminsheet").Range("E2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "HR")
  Next i
End Sub

Thankyou Evolta

But how can i use this macro. Ive never used macro before

Well I am kinda new with these things too.

I usually make a button (insert/shapes) (since you need to activate the macro with something and I prefer buttons for this)
Right click it: assign macro
In that window press new

past this:

 Dim iSheet As Integer
  On Error Resume Next
  Worksheets("Adminsheet").Range("B2:E2").Value = 0
  For i = ThisWorkbook.Sheets.Count To 2 Step -1
   Worksheets("Adminsheet").Range("B2").Value = Worksheets("Adminsheet").Range("B2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Manager")
   Worksheets("Adminsheet").Range("C2").Value = Worksheets("Adminsheet").Range("C2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Clerk")
   Worksheets("Adminsheet").Range("D2").Value = Worksheets("Adminsheet").Range("D2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Programmer")
   Worksheets("Adminsheet").Range("E2").Value = Worksheets("Adminsheet").Range("E2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "HR")
  Next i

in between your sub and end sub part. (you can change the name of the sub to something more suitable )

now just press the button to update it.