Adding Spell Check

  • Thread starter Thread starter Phil Hageman
  • Start date Start date
P

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
 
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
 
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]>,
Click to expand...
iletide sunu yazdi [email protected]...
 
Back
Top