VBA check if last character in a cell is punctuation

[ThomasOES]

Hello

I need code to check if a last character in a cell is an exclamation.

Example

B!

If the last character in a cell is an exclamation, I then need to multiply a range of cells below it by 0.0001.
(I'm changing values in the range from ppm to %)

Make this

B!
3
6
22
120

Look like this

B!
0.0003
0.0006
0.0022
0.0120

Thanks for any help
Tom

 

[Joe4]

Here is one way:

Sub MyMacro()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    If Right(Range("A1"), 1) = "!" Then
        For Each cell In Range("A2:A5")
            cell = cell * 0.0001
        Next cell
    End If
    
    Application.ScreenUpdating = True
    
End Sub

Change the ranges to suit your needs.

 

[ThomasOES]

Thanks Joe
Works perfectly
Tom

 

[Joe4]

You are welcome!