Drop down list to return to default after selecting from drop down

[NYJets44]

Hi all, I need some help returning the original default after selecting another option from a drop down list. AM8 and AX8 both have FY22 and FY23 in their drop down lists. However, I set up the code to run a macro whenever you make a selection of FY22 or FY23. I would like for the list to return to the original default that was set even after selecting a different option from the drop down. Here is the code I have currently:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AM8")) Is Nothing Then
Select Case Range("AM8")
Case "FY22": FY22
Case "FY23": FY23
End Select
End If

If Not Intersect(Target, Range("AX8")) Is Nothing Then
Select Case Range("AX8")
Case "FY22": FY22
Case "FY23": FY23
End Select
End If

End Sub

 

[DanteAmor]

Hi and welcome to MrExcel:

The 2 cells AM8 and AX8 must start with the original default value.

Put all of the following code in the events of your sheet:

Option Explicit

Dim originaldefault As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Intersect(Target, Range("AM8,AX8")) Is Nothing Then
    originaldefault = Target.Value
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Intersect(Target, Range("AM8,AX8")) Is Nothing Then
    Select Case Target
      Case "FY22": FY22
      Case "FY23": FY23
    End Select
    Application.EnableEvents = False
    Target.Value = originaldefault
    Application.EnableEvents = True
  End If
End Sub