Remove last character if length is greater than 6

Hello All,

I would be grateful for some help on a macro that simply looks at Column K, starting at K2, to identify values with length greater than 6 and if found, remove last character. Demo file with desired results attached. Thanks for considering!

According to your attachment a VBA demonstration for starters :

PHP Code: 

Sub Demo1()
    With Range("K2", [K1].End(xlDown)):  .Value2 = Evaluate("IF({1},LEFT(" & .Address & ",6))"):  End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Perfect. Thanks for your help.

Please Login or Register  to view this content.

Please Login or Register  to view this content.