Forum Discussion
Anonymous
May 17, 202212
12
1 Reply
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