May 17 2022 06:37 AM - edited Oct 31 2022 12:28 PM
May 17 2022 08:21 AM
@Deleted
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the worksheet module.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm)
Make sure that you allow macros when you open it.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Range("V2:V100"), Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each rng In Intersect(Range("V2:V100"), Target)
Select Case rng.Value
Case 2
rng.Value = "Not Complete"
Case 3
rng.Value = "Complete"
Case 4
rng.Value = "Something Else"
Case 5
rng.Value = "Whatever"
Case Else
' Leave as is
End Select
Next rng
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub