Hello,
First time posting, love the site. Always been an Excel fan, new to macros, so bear with me

I have created a barcode log sheet. Nothing fancy, my guys scan product barcodes (Code 39) onto a single column for tracking purposes.

I already added a macro that will remove the check digits of the scanned number, 1st & last digit of the active cell. No issues on this but, I have been informed that users have trouble remembering which cells they applied the macro to. (We have varying barcode lengths so they can't go by character count easily.)

I would like to have my column (C) be preset to have the barcode numbers Text be entered/scanned in Red (this part is easy, I will just preset the cells to red), then when users hit the macro button it will remove the 1st & last digit, Plus turn the text color to black.

Any ideas? All suggestions appreciated! Below is my code I am using to remove the 1st & last digit of the scanned numbers.

Sub RemoveChars()
Application.ScreenUpdating = False
Do
ActiveCell.Value = Mid(ActiveCell.Value, 2, Len(ActiveCell.Value) - 2)
ActiveCell.Offset(1, 0).Select
Loop While Not (IsEmpty(ActiveCell))
End Sub
-CM