Search Range and Return # of times a Text String occurs

Hello,
I am trying to write some VBA to search a column (ex A1:A100) and returns the number of times the word "Buy" occurs. So, for example, this would return a value of 3.
Also, I cannot add anything to the spreadsheet itself. I need to have it solely within the VBA code.

A
1 Buy
2 Sell
3 Buy
4 Buy
5 Sell
...


Thanks!

Please Login or Register  to view this content.

Run: RunCountStringInRange
Change: "buy", Range("A1:F10")

Thank you both for your help! that did the trick. Have a great day.