Inserting Symbols

[Smurfit-Stone]

Hello Board,

I have a question....is there a way to have Excel insert a trademark symbol everytime a particular word is typed? I was thinking I could do something with or add to the Auto Correct feature. Thanks in advance.

 

[Scott Huish]

For Excel in general, or just in a specific workbook? And what's the word?

 

[Smurfit-Stone]

If this can be done.....I'll take either, but preferrably a worksheet.

 

[gobias]

Use auto correct.

Tools==>Options==>Spelling==>AutoCorrect Options

Replace "your name" With "your name ™"

To get the ™, just type (tm) in a blank cell (auto correct will change it) and copy the text.

 

[Scott Huish]

To be workbook only, put this code in the Workbook Open event, replace word with whatever your word is:

Private Sub Workbook_Open()
Application.AutoCorrect.AddReplacement What:="word", Replacement:="word™"
End Sub

Put this in the Workbook BeforeClose event:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.AutoCorrect.DeleteReplacement What:="word"
End Sub

and I think this will work for a specific sheet, just change the sheet name and word:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet1" Then
    Application.AutoCorrect.AddReplacement What:="word", Replacement:="word™"
Else
    Application.AutoCorrect.DeleteReplacement What:="word"
End If
End Sub

 

[Smurfit-Stone]

Awesome.....will this code also work with a company logo. I mean can I paste a custom symbol in the macro?