See
http://www.mvps.org/dmcritchie/excel/proper.htm
and
http://www.cpearson.com/excel/case.htm

You can try

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Range("a1,a6,b1,b6"), Target) Is Nothing Then
Target.Formula = StrConv(Target.Formula, vbUpperCase)
End If
End Sub






--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ctech" wrote in message
...

Can I have a on event on a set cells? As I want the macro to run just
when the text in 4 cells is changed... A1, G5, H3, C17


--
Ctech


------------------------------------------------------------------------
Ctech's Profile: http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=528142