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

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

It does not work that well. If I enter a value of "af" and leave the
cell, nothing. When I revisit the cell, then it will change the cell
to "AF". My previous attempt changes to uppercase as I leave the cell.

You are talking about a worksheet_change event then. So delete the selection
part

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Fan924" wrote in message
...
It does not work that well. If I enter a value of "af" and leave the
cell, nothing. When I revisit the cell, then it will change the cell
to "AF". My previous attempt changes to uppercase as I leave the cell.

Thanks Don, works great.

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Fan924" wrote in message
...
Thanks Don, works great.