Logo 
Search:

MS Office Answers

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Jayden Brown   on Jan 18 In MS Office Category.

  
Question Answered By: Maliha Malik   on Jan 18

Create a user defined function thus:

Function blah(OrigStr As Range)
blah = ""
For i = 1 To Len(OrigStr)
If OrigStr.Characters(i, 1).Font.Bold = True Then blah = blah &
Mid(OrigStr, i, 1)
Next
End Function

(The line beginning
If...
ends with
Mid(OrigStr, i, 1)

It may be split above.)

Example of use in worksheet:
=blah(B3)

Share: 

 
 
Didn't find what you were looking for? Find more on worksheet Or get search suggestion and latest updates.


Tagged: