ActiveCell Macro

Am looking for help on active cell. Need something to look at the curent cell and count
based on the value of that cell (If cell.value = 2 then count = 1) this would be done on several worksheets with the same macro. The count for all the sheets would go into one cell something like

if ActiveCell.Value = 2, 3 or 4 Then Count
Range("AQ38").Value = Count

Any help would be wonderful!

Good morning Information Hog

This piece of code will do exactly what you wanted:

Sub example()
a = 0
b = ActiveCell.Address
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
Range(b).Select
If ActiveCell = "2" Or ActiveCell = "3" Or _
ActiveCell = "4" Then a = a + 1
Next sht
MsgBox a
End Sub

The number of times this number occurs is held in the variable a.
Your post didn't state so I made the assumption that you wanted the same cell checked in every sheet. If you want the active cell in each sheet checked, omit the Range(b).Select line.

To put the result in a cell use these lines in place of Msgbox a

Sheets("Sheet1").Select
Range("F10").Select
ActiveCell.FormulaR1C1 = a

HTH

DominicB

Thank's so much for your help with the code, that was perfect!

Hi Information Hog

You're welcome. Glad you found it of use, and thank you for the feedback.

DominicB