changing one character in a range to windings

[Belleke]

if the character is è or ì I would like these two characters change to windings. this in cells with more text ,the rest of the text should remain Arial

 

[Marc L]

According to the Macro Recorder for starters :​

Sub Macro1()
    Dim S&
    For S = 1 To ActiveCell.Characters.Count
        With ActiveCell.Characters(S, 1)
            Select Case .Text
                   Case "è", "ì":   .Font.Name = "Wingdings"
            End Select
        End With
    Next
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[Belleke]

It works fine but i would like to use a range instead of active cell (always the same range)

 

[Marc L]

As ActiveCell is obviously a range so this is easy to replace it with any other range …​

​

 

[Belleke]

I can't find the solution,

 

[Marc L]

In case your range has several cells then according to VBA basics apply a For Each loop on the range​

and use the loop variable instead of ActiveCell obviously …​

​

 

[p45cal]

Adapted:

Sub Macro1()
Dim S&
For Each cll In Range("A1:C9").Cells    'adjust this range to suit.
  For S = 1 To cll.Characters.Count
    With cll.Characters(S, 1)
      Select Case .Text
        Case "è", "ì":   .Font.Name = "Wingdings"
      End Select
    End With
  Next S
Next cll
End Sub

 

[Belleke]

Works fine P45