Private Sub CommandButton1_Click() Dim LastCell As Integer Dim i As Integer Sheets(1).Select LastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row For i = 1 To LastCell Cells(i, 1) = UCase(Cells(i, 1).Text) Next i End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Columns.Column = 1 Then Target = UCase(Target) End If End Sub