Macro to add character to selected cell

[welshman010]

Hi

I am trying to create a button that when clicked it will add a character to the existing cell. Eg if cell had LDs and I click button I like it show LDs₂

The ₂ is character code 2082 if that helps

Any help much appreciated.

Thanks

[emp1346]

Create a button that calls the following:

Sub addcharacter()

Dim cell As Range

For Each cell In Selection
    cell = cell.Value & "2"
    cell.Characters(Start:=Len(cell.Value), Length:=1).Font.Subscript = True
Next

End Sub

EDIT: Updated for your request for the subscript.

[welshman010]

Thanks for reply. Its probably something I am doing wrong but nothing happened when I clicked button, It probably me, I pretty new to this, I went to developer tab click command button view code and pasted the above.

Also would that just paste the number 2. Was hoping 2 in subscript "₂"

[welshman010]

Thanks for update. I still can get this working. Nothing happens when I click button.

My bad got it working some how. Thanks again

[welshman010]

Trying to update this for two other buttons. one is to add text n number eg OT20 and one for wingding symbol.

[emp1346]

You would just modify the code above, so to add "OT20" with no subscript it would be:

Sub addcharacter()

Dim cell As Range

For Each cell In Selection
    cell = cell.Value & "OT20"
Next

End Sub

And to add the Wingding symbol (assuming it was the last character) you would do:

Sub addcharacter()

Dim cell As Range

For Each cell In Selection
    cell = cell.Value & "g" '<---- use whatever the keyboard equivalent is for your wingding symbol
    cell.Characters(Start:=Len(cell.Value), Length:=1).Font.Name = "Wingdings"
Next

End Sub