Andy
With ActiveDocument
.Unprotect
With Selection
If .FormFields(1).CheckBox.Value = True Then
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Else
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
End If
End With
.Protect wdAllowOnlyFormFields, NoReset
End With
--
Hope this helps,
Doug Robbins - Word MVP
Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.
"Andy Roberts" <an...@blue-bean.co.uk> wrote in message
news:%23EnZzSj...@TK2MSFTNGP06.phx.gbl...