Sorry for the code I pasted it worng.
Ok the SUBTOTAL Formula works only if you have use the Subtotal function on your worksheet in the tool bar and go to the Data menue. The Subtotal Formula only reads other Subtotal Formulas.
There is one thing I could think that it might give you the flexibilty you want. Look at the attachment below. But its only availible in Excel 2003. If you go to Data menue and choose create List it will apply Filters for each columns and drop down list of Subtotals formulas.
This formula will count how many jacks in a column.
=COUNTIF(Bau!F$2:F$7,"jack")
Look at the Attachment below and see if this works for you.
[VBA] Sub Clean_Trim()
Dim CleanTrimRg As Range
Dim oCell As Range
Dim Func As WorksheetFunction
Set Func = Application.WorksheetFunction
On Error Resume Next
Set CleanTrimRg = Selection.SpecialCells(xlCellTypeConstants, 2)
If Err Then MsgBox "No data to clean and Trim!": Exit Sub
For Each oCell In CleanTrimRg
oCell = Func.Clean(Func.Trim(oCell))
Next
End Sub
[/VBA]