Hi Bernie,

Code is working brilliantly. Thank you very much for your time. Man
Thanks.
Bernie Deitrick wrote:
*QTE,
At the top of

Sub A_Criteria_Entry()

use this code:

If Not Intersect(Selection, Range("C:C,G:G,J:J,R:R")) Is Nothin
Then
For Each myCell In Selection
myCell.Value = UCase(myCell.Value)
Next myCell
End If

HTH,
Bernie
MS Excel MVP
* [/color]


Kind regards,
QT

--
Message posted from http://www.ExcelForum.com