How remove the Last 5 character throu VBA

[AT BABU]

Hi Folks

I need small macros removeing Last 5 character of the Word

In Exp: AT_1833 I need AT only. Removring _1833

 

[jolivanes]

You're welcome and good luck.
And in case you think you don't have enough choices yet, here is one more!

Sub Maybe_C()
Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If InStr(Cells(i, 1), "_") <> 0 Then Cells(i, 2).Value = Left(Cells(i, 1), InStr(Cells(i, 1), "_") - 1)
    Next i
End Sub