All Caps Code Help

[motherteresa]

I have this All Caps code which works great. But, it also turns all emails on the worksheet into caps, which I don't want.

Question:
Is there a way to have it work on everything except emails and web addresses?

or

Is there a way to have it work on everything except certain cells?


Thank you Ex(cel)perts!!

 

[djreiswig]

Or, sticking with my no Exit Sub preference

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range, MyRange As Range
    
    If Target.Cells.Count = 1 And Target.HasFormula = False Then
        On Error Resume Next
        Application.EnableEvents = False
        If InStr(Target.Value, "@") = 0 Then
            Target = UCase(Target)
        End If
    
        If Not Intersect(Target, Range("C:C, E:E")) Is Nothing Then
            Select Case Target.Column
                Case 5
                    If Target > 0 Then Target = -Target
                Case 3
                    If Target < 0 Then Target = -Target
            End Select
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[motherteresa]

Add it right before the "End If" statement? And, will it stop the macro for the whole page or just in cells with a formula? Oh...didn't see dj's thought. Will try them both. Thanks guys. Wish me luck!!

 

[motherteresa]

Looks like it's working pretty well so far djreiswig. Thanks too, Smitty for looking in on the issue. Y'all have a wonderful Thanksgiving!!