Snasui Excel Forum

Code: Select all

Sub ChagetoUpper()
    Dim r As Range
    Dim i As Integer
    For i = 1 To Worksheets.Count
      For Each r In Worksheets(i).UsedRange
        r = UCase(r)
      Next r
    Next i
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCheck As Range
    
    If Target.Column = 2 Then
        Set rCheck = Target.Offset(-1, -1)
        UCase (rCheck)
        MsgBox (rCheck)
    End If
End Sub

Code: Select all

Target.Offset(0, 0) = UCase(rCheck)