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