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
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2