[VBA] Αντικατασταση Γραμματων

[manolis]

Καλημέρα σε όλη την παρέα

Εχω φτιάξει την παρακάτω μακρο για να αντικαταστήσω ελληνικούς χαρακτήρες με αγγλικούς.

Sub ReplaceLetters i()

Columns("H:H").Select
Cells.Replace What:="Α", Replacement:="A"
Cells.Replace What:="Β", Replacement:="B"
Cells.Replace What:="Ε", Replacement:="E"
............................
End sub

Tο προβλημα μου είναι οτι ενω θέλω να γίνει η αλλαγή στη στήλη που επιλέγω , αυτο γίνεται σε όλες τις στήλες.

Τι έχω κάνει λάθος ?

Επίσης θα ήθελα αν γίνεται οτι αλλαγες γίνουν στα γράμματα να επισημανθούν πχ να γίνουν κόκκινα τα γράμματα που θα αλλαχθούν

Ευχαριστώ


ευχαριστώ