spell check ranges in a do loop

D

Daveh

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
 
T

Tom Ogilvy

Activesheet.Range("A1").Checkspelling AlwaysSuggest:=True, SpellLang:=2057

looks like it would only check spelling in cell A1.

Why not have it check the spelling in the cell you want spell checked

Activesheet.Range("B9").Checkspelling AlwaysSuggest:=True, SpellLang:=2057

perhaps

or
Application.Goto Reference:=Range(Address), scroll:=True
Selection.Checkspelling AlwaysSuggest:=True, SpellLang:=2057
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top