Forum Discussion

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

Resources