I have a macro trying to spell check a number of discrete ranges ( not the
whole spread sheet). The range names are passed to the spell check sub
routine which uses the following lines of code

Application.Goto Reference:=Range(Address), scroll:=True
Application.union((activesheet.Range(Address)),
Activesheet.Range("A1").Checkspelling AlwaysSuggest:=True, SpellLang:=2057

The problem I have is that if there are 3 ranges (for example) I want to
spell check, it works fine for the first range, but doesn't work for the
later ranges.

I have checked the formatting of the cell ranges in the spreadsheet and thy
are all the same.

Thanks !

Daveh