Makro-odstranenie diakritiky v excely

Ahojte, chcela by som vas poprosit o radu, ako by malo vyzerat makro na odstranenie diakritiky v excely?

no ja by som to robil jedine tak ze pojdes po znaku cyklom a porovnas a vymenis
urcite sa to bude aj inak dat jednoduchsie

prepac, ale nerozumiem

super, velmi pekne dakujem, urobila som to nasledovne:
http://www.pasztor.name/sw_makro.php

// pridané po 1 minúte od posledného príspevku

este by som vas chcela poprosit o vysletlenie, kedze neprogramujem vo Visual Basicu a stve ma, ze tomu nerozumiem:
Sub BezDiakritiky()
' Makro na odstránenie diakritiky z textu
' Makro zaznamenané 01.04.2001, autor Pásztor Karol
Dim DiaANO As String
Dim DiaNIE As String
DiaANO = "ľĺščťžýáäíéěůďôňřĽĹŠČŤŽÝÁÄÍÉĚŮĎÔŇŘŕŔúÚüÜűŰóÓöÖőŐ"
DiaNIE = "llsctzyaaieeudonrLLSCTZYAAIEEUDONRrRuUuUuUoOoOoO"
pocet = Len(DiaANO)
For od = 1 To pocet
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Mid(DiaANO, od, 1)
.Replacement.Text = Mid(DiaNIE, od, 1)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

Dakujem