Posted to microsoft.public.excel.programming
|
|
VBA Auto Cell Formatting Uppercase
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
|