Merged cells lock after resizing

[wvvvdracovvvw]

I really hope someone can help me with the following issue.
I finally have the merged cells resizing the way I need, however it seems to lock the cell after the process not allowing it to be edited again until I unlock the sheet. below is the current code I am using

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim NewRwHt As Single
 Dim cWdth As Single, MrgeWdth As Single
 Dim c As Range, cc As Range
 Dim ma As Range

 With Target
 If .MergeCells And .WrapText Then
 Set c = Target.Cells(1, 1)
 cWdth = c.ColumnWidth
 Set ma = c.MergeArea
 For Each cc In ma.Cells
 MrgeWdth = MrgeWdth + cc.ColumnWidth
 Next
 Application.ScreenUpdating = False
 ma.MergeCells = False
 c.ColumnWidth = MrgeWdth
 c.EntireRow.AutoFit
 NewRwHt = c.RowHeight
 c.ColumnWidth = cWdth
 ma.MergeCells = True
 ma.RowHeight = NewRwHt
 cWdth = 0: MrgeWdth = 0
 Application.ScreenUpdating = True
 End If
 End With
 
 End Sub

If anyone has ideas of what I am missing I would greatly appreciate the help.