CheckSpelling on Merged Cells

[snapfade]

Hi,

I have a worksheet with merged cells (Yeah, I know...no choice). I need to check spelling on merged cells that are 29 columns wide.

I cannot seem to get this code right. Any suggestions would be appreciated.

Sub SpellCheckMergedCells()

    Dim TaskStatus
    Dim MergedCell
    
    ActiveSheet.Unprotect Password:="123"
    
    TaskStatus = 29
    MergedCell = ActiveCell.MergeArea.Width(TaskStatus)

    Range("A1").Activate
    For Each MergedCell In ActiveSheet
        ActiveCell.MergeArea.CheckSpelling
    Next
    
    ActiveSheet.Protect Password:="123"

End Sub

Thanks!