Custom Function: Count number of strings in range?

Thanks a lot! I was able to create a custom function using your help.

Public Function StringCount(myRange As Range) As Integer

StringCount = Application.WorksheetFunction.CountIf(myRange, "?*")

End Function