Thanks
 

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" ,
iletide sunu yazdi news:028601c3a557$ee9d7460
...
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