PW Protected Spellcheck & Format Rows Issue

[r0bism123]

Hi gang,

I am having an issue I'm hoping someone can help me out with. I need to run the spellcheck code below, however, I also need the "Format Rows" boxed check before the code completes the task (see screen shot below). I'm sure there is an easy fix -- I cant seem to figure it out. Your help is appreciated in advance!

Sub SpellCheckCell1()
    Application.ScreenUpdating = False
On Error Resume Next
    With ActiveSheet
        .Unprotect ("pw123")
        Selection.CheckSpelling
        .Protect ("pw123")
    End With
    Application.ScreenUpdating = True
End Sub

 

[Snakehips]

r0bism123, try....

Sub SpellCheckCell1()    Application.ScreenUpdating = False
On Error Resume Next
    With ActiveSheet
        .Unprotect ("pw123")
        Selection.CheckSpelling
        .Protect ("pw123"), AllowFormattingRows:=True
    End With
    Application.ScreenUpdating = True
End Sub

Hope that helps.

 

[r0bism123]

Success!! I knew there was an easy answer. I need to learn VBA better. thanks much!

 

[Snakehips]

Don't forget that you can always record a macro of a series of keystrokes to give you the appropriate code.
You can then use, adapt, or extract as you see fit.