Sorry, think Ive got it.
T = Application.WorksheetFunction.CountIf(Range("g15:g 27"), "<6").
Regards Robert

ok T = Application.WorksheetFunction.CountIf(Range("g15:g 27"), "<6")
works, any ideas how i can use a variable in place of "<6". Ive tried T
= Application.WorksheetFunction.CountIf(Range("g15:g 27"), < point), but
get an error. Also I want to replace the range with selected cells.
T = Application.WorksheetFunction.CountIf(Active.cells ,< point).
Regards Robert

T = Application.CountIf(Range("G15:G27"), "<" & myVar)

T= Application.CountIf(Selection, "<" & myVar)

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"RobcPettit" wrote in message
oups.com...
ok T = Application.WorksheetFunction.CountIf(Range("g15:g 27"), "<6")
works, any ideas how i can use a variable in place of "<6". Ive tried T
= Application.WorksheetFunction.CountIf(Range("g15:g 27"), < point), but
get an error. Also I want to replace the range with selected cells.
T = Application.WorksheetFunction.CountIf(Active.cells ,< point).
Regards Robert