[PieOPah]

I am currently trying to write a macro to convert US spelling to UK

I have something like this -

Sub Spelling()
'
' Spelling Macro
' Macro recorded 29/11/2008 by Simon Argent
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "color"
        .Replacement.Text = "colour"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find
        .Text = "flavor"
        .Replacement.Text = "flavour"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Is there a more efficient way of doing this - or is there already a macro available I can use?

Many thanks,