code to automatically change value of a cell from a number to a specific word

[excel151515]

Hi,

I'm trying to find a way to change the value of all cells in a column based on the number in each cell. The data will be copied into the sheet from another and for the ease of use for the end user, I want the following numbers to automatically change to the corresponding values.

01 = Acres
02 = Width
03 = Depth
04 = Sq Ft
05 = Units

It would need to work automatically once the data is copied into the sheet and without the press of a button and without adding any new rows / columns to the sheet. Is this something that can be done with code or could it be triggered to happen when data is entered into a specific cell (A1)?

I've uploaded an example and the column that would need to be changed is Column C. If anyone has any advice I would really appreciate it. Thanks in advance...

[stnkynts]

It can be done automatically but I would be cautious about it's implementation. It would be better if you have a specific cell that you enter a final number into (like a date) you could use to trigger the macro to run at that time. I have attached the macro which will work when you paste data into the sheet, or do anything else in the sheet for that matter:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim strValue As String

Application.ScreenUpdating = False

For Each rCell In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    strValue = ""
    Select Case rCell.Value
        Case Is = "01"
            strValue = "Acres"
        Case Is = "02"
            strValue = "Width"
        Case Is = "03"
            strValue = "Depth"
        Case Is = "04"
            strValue = "Sq Ft"
        Case Is = "05"
            strValue = "Units"
    End Select
    
    If strValue <> "" Then
        Application.EnableEvents = False
        rCell.Value = strValue
        Application.EnableEvents = True
    End If
Next rCell

Application.ScreenUpdating = True

End Sub

[excel151515]

It can be done automatically but I would be cautious about it's implementation. It would be better if you have a specific cell that you enter a final number into (like a date) you could use to trigger the macro to run at that time. I have attached the macro which will work when you paste data into the sheet, or do anything else in the sheet for that matter:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim strValue As String

Application.ScreenUpdating = False

For Each rCell In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    strValue = ""
    Select Case rCell.Value
        Case Is = "01"
            strValue = "Acres"
        Case Is = "02"
            strValue = "Width"
        Case Is = "03"
            strValue = "Depth"
        Case Is = "04"
            strValue = "Sq Ft"
        Case Is = "05"
            strValue = "Units"
    End Select
    
    If strValue <> "" Then
        Application.EnableEvents = False
        rCell.Value = strValue
        Application.EnableEvents = True
    End If
Next rCell

Application.ScreenUpdating = True

End Sub

This works perfectly. Thanks, stnkynts!