Truncate cells in column IF cell begins with X

Hello,

Been a lurker for a long time, found tons of quality information here. Decided to register so I could use the local search engine. Finally making my first post.

I have a single column with a series of text data (it's always the same column). I would like to truncate the text to 9 characters if, and only if, the cell in that column begin with X. I would like to do this through a macro.

Help?

Thanks in advance

Example....
Before:
X123456789101112
X567891012345
P123456789101123
Z123456489798130

After:
X12345678
X56789101
P123456789101123
Z123456489798130

Originally Posted by JieJenn

=if(left(a1,1)="x",left(a1,9),a1)

Thanks for the quick reply.

That works great but how do I execute this through a Macro?

Originally Posted by mike7952

This should do it

Option Explicit
Sub abc()
 Const WhatColumn As String = "A" '<== Change to your column
 Dim ptr As Long
 
 For ptr = 1 To Cells(Rows.Count, WhatColumn).End(xlUp).Row
    If Left(Cells(ptr, WhatColumn).Value, 1) = "X" Then
        Cells(ptr, WhatColumn).Value = Left(Cells(ptr, WhatColumn).Value, 9)
    End If
 Next
End Sub

Thank you sir, that works perfect! Greatly appreciate it.