I have the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Range("AD10,AD14"), Target) Is Nothing Then
Module14.CCFCLC_Shan ' Shows a userform
End If

End Sub

I now need to write a new code to copy formats into Range("AD10,AD14"). I
want to suspend the above code while this new code is running so the userform
doesn't "show"??


--
Thanks
Shawn