Erstatter hele arket - skal kun være et range
HejJeg har forsøgt mig med denne kode, i håb om, at jeg inden for det angivne range kan erstatte de angivne bogstaver med tegn.
Men, når jeg kører makroen erstattes tegnene i hele min projektmappe og ikke kun i ranget.
Hvad har jeg gjort forkert, og er der nogen,som kan hjælpe mig.
Range("tekst_område").Select
'xTitleId = "CLAUSP-messagebox"
'Set WorkRng = Application.Selection
'Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
'Application.ScreenUpdating = False
' Application.Goto Reference:="Område_test_1"
' Application.Goto WorkRng
Selection.Replace What:="æ", Replacement:="‘", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ø", Replacement:="›", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="å", Replacement:="†", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Æ", Replacement:="’", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Ø", Replacement:=Chr(157), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
' i næste selection er første mellemrum udeladt Selection.Replace What:="Å", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Å", Replacement:=Chr(143), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ü", Replacement:=Chr(252), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Application.ScreenUpdating = True