Spell check either Active X text box, text box or merged cells in excel 2016

[Irene883]

I hope someone can help me. I have a protected workbook with protected work sheets (2016). I built the spreadsheet with merged cells for user comments, but have now been asked to allow spell check in the comments field. In the example below I would need a text box/merged cell from b2:e3 (with a set height and length) that can be spellchecked with a command button ( I was planning on assigning a macro to a shape). I have about 9 of these text boxes in the sheet that will need to be spellchecked. I prefer the Active X text boxes, but am open to whatever is the easiest. Thank you!

[TABLE="width: 960"]
<colgroup><col span="15"></colgroup><tbody>[TR]
[TD="colspan: 15"][TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A
[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD]

---

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Irene883]

I wanted to add that the macro below worked, but once I put the password protect on, it behaved very oddly and would start replacing words with previously used corrections - even though the replaced word was not even close to the original word.

[TABLE="width: 1183"]
<tbody>[TR]
[TD]1
2
3
4
5
6
7
8
9
10
11
12
13
[/TD]
[TD]Sub SpellChkRvw_Click()
Dim xObject As Object
Dim xCell As Range
On Error Resume Next
Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
If ActiveSheet.OLEObjects.Count > 0 Then
For Each xObject In ActiveSheet.OLEObjects
xCell = xObject.Object.Text
xCell.CheckSpelling , , , 1033
xObject.Object.Text = xCell
Next
End If
End Sub
[/TD]
[/TR]
</tbody>[/TABLE]

Any help you can provide would be very much appreciated!! Thank you!