Spell Check Protected WORKBOOK

T

tso

Hi Everyone,

I have found the Macro code to check spelling for one particula
worksheet.

However, I want the macro to check the spelling in all 10 worksheets.

This is what I am using now.

Sub SpellCheckIt()
Sheets("Sheet1").Unprotect "Password"
ActiveSheet.CheckSpelling
Sheets("Sheet1").Protect "Password"
End Sub


Thank you
 
C

Claus Busch

Hi,

Am Tue, 11 Jun 2013 19:06:41 +0100 schrieb tso:
However, I want the macro to check the spelling in all 10 worksheets.

try:

Sub SpellCheckIt()
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(i)
.Unprotect "Password"
.CheckSpelling
.Protect "Password"
End With
Next
End Sub


Regards
Claus Busch
 

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