hi,
You could create 2 UDF Worksheet functions in the book.

eg for the first one

Public Function FirstFunction(Param1 as Variant) as Variant
Dim strWord as string
strWord=Param1

''' do whatever with that string, eg: concetenate first and last letter
FirstFunction=Strings.Left(strWord,1) & Strings.Right(strWord,1)

End Function

Now, in B1, you can write : =FirstFunction(A1)

--
Regards,
Sébastien
<http://www.ondemandanalysis.com
<http://www.ready-reports.com


"kmdmcr" wrote:

I would like to type a word into cell a1 and based off that word I want cells
b1 and c1 to fill in with specific text.

How do I program this?

Thank you