[COLOR="Red"]If (Application.Or(UCase(Right(Target.Address, 4)) = "DOTX", UCase(Right(Target.Address, 3)) = "DOT", UCase(Right(Target.Address, 3)) = "DOC", UCase(Right(Target.Address, 4)) = "DOCM", UCase(Right(Target.Address, 4)) = "DOCX")) Then Exit Sub[/COLOR]