If???? you want to do it by selecting any cell in that range, try this.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
if target.row100 or target.column<1 then exit sub
target.Value = UCase(target)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Fan924" wrote in message
...
I have been using this for a while. Converts characters in cells to
uppercase. I am trying to expand it to cells A1 to A100.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A2").Value = UCase(Range("A2").Value)
Range("A11").Value = UCase(Range("A11").Value)
End Sub