Upper case more than one cell - VBA

Hello
I would like to upper case multiple cells in my excel sheet using vba, i have this code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Address = "$A$5" Then
Target.Value = UCase(Target.Value)

End If

End Sub

-------------------------

How can I upper case more than one cell?

Regards
Claudio

Please Login or Register  to view this content.