In that case, add the following line as indicated to get an idea on where it is going wrong
Code:
If UCase(ContentControl.Title) = "ACTION" Then
MsgBox "The value which should be in the Case is: " & UCase(.Text)
With ContentControl.Range
When you leave the content control, you will see a dialog appear on screen. If you don't, then you know either the macro didn't run or the title of the Content Control isn't 'Action'
If you still can't work it out, post a sample document with the macro.