Adding Spell Check

[Phil Hageman]

Can someone suggest how to add a spell check for all
worksheets in the following code (and any other
suggestions too)...

Sub SaveAndClose()
Range("A10").Select
Range("A9").Select
Range("A8").Select
Range("A7").Select
Range("A6").Select
Range("A5").Select
Range("A4").Select
Range("A3").Select
Range("A2").Select
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
'Application.DisplayFullScreen = True
End Sub

 

[Haldun Alay]

Hi,

add following code into your sub.

For Each Sht In ThisWorkbook.Sheets
Sht.Cells.CheckSpelling
Next


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Phil Hageman" <[email protected]>, iletide sunu yazdi Can someone suggest how to add a spell check for all
worksheets in the following code (and any other
suggestions too)...

Sub SaveAndClose()
Range("A10").Select
Range("A9").Select
Range("A8").Select
Range("A7").Select
Range("A6").Select
Range("A5").Select
Range("A4").Select
Range("A3").Select
Range("A2").Select
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
'Application.DisplayFullScreen = True
End Sub

 

[Phil Hageman]

Thanks for your reply. I'll try this out...

-----Original Message-----
Hi,

add following code into your sub.

For Each Sht In ThisWorkbook.Sheets
Sht.Cells.CheckSpelling
Next


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Phil Hageman" <[email protected]>,

iletide sunu yazdi [email protected]...