Use this :
Function CountThem(rngString As Range) As String Dim VarArr Dim ArrRes Dim varWhattoFind Dim lngCount As Long varWhattoFind = Array("Actor", "Businessman", "Athlete", "Dancer") VarArr = Split(rngString.Value, ",") For lngCount = LBound(varWhattoFind) To UBound(varWhattoFind) CountThem = CountThem & varWhattoFind(lngCount) & " " & UBound(Filter(VarArr, varWhattoFind(lngCount))) + 1 & vbCrLf Next lngCount End Function Regards Rajan verma +91 7838100659 [IM-Gtalk] From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of pesh Sent: 29 July 2012 2:08 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Excel VBA: String manipulation and tally (Help Needed) Dear Excel Experts, I could really use your help. I am trying to take a string and with VBA code tally the number of instances of a word and then output into an excel sheet. For example, String >> "People: Tom Hanks(Actor), Michael Jordan(Businessman, Athlete), Fred Astaire (Dancer), Donald Trump (Businessman)" I need the vba code to report out two things: 1. The number of actors, businessman, athletes, dancers 2. The items assigned to each person (e.g. Michael Jordan is a businessman and athlete) I have attached a sample sheet for greater clarity . I'm sure this is very easy for you experts, and your help is greatly appreciated. Thank you. Alpesh -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ---------------------------------------------------------------------------- -------------------------- To post to this group, send email to excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com