Convert character to upper case, but only in specific circumstances?

[jmpatrick]

Here's another one I've been struggling with this afternoon.

I have this code to convert all text in a named range (SubLotColumn) to uppercase:

If Not Intersect(Target, Range("SubLotColumn")) Is Nothing Then

        Application.EnableEvents = False
        
        If Trim(Target) <> "" Then
        Target = UCase(Target)
        End If

        Application.EnableEvents = True

End If

This works fine except that there are instances when I don't want the text uppercase. I want all instances of the letter M to be uppercase when it is followed by a dash such as this:

1124M-50

However, if the text appears without a dash following such as this:

Christmas Eve

...I do not want it uppercase.

It will always be an M.

 

[Fluff]

How about

If Not Intersect(Target, Range("SubLotColumn")) Is Nothing Then

        Application.EnableEvents = False
        
        If InStr(1, Target, "-") > 0 Then
        Target = UCase(Target)
        End If

        Application.EnableEvents = True

End If

 

[GWteB]

My submission would be ..

    If Trim(Target) <> "" Then
        Target = VBA.Replace(Target, "m-", "M-")
    End If

 

[jmpatrick]

How about

If Not Intersect(Target, Range("SubLotColumn")) Is Nothing Then

        Application.EnableEvents = False
       
        If InStr(1, Target, "-") > 0 Then
        Target = UCase(Target)
        End If

        Application.EnableEvents = True

End If

Works great. Thanks!

 

[jmpatrick]

My submission would be ..

    If Trim(Target) <> "" Then
        Target = VBA.Replace(Target, "m-", "M-")
    End If

Thanks.

 

[Fluff]

Glad we could help & thanks for the feedback.