With 4 Dynamic named ranges,
i had to change E-Learning to E_Learning, character - not allowed in named range
and this code, NOT in module but in Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
With Range("B2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Range("B1")
End With
Range("B4") = "": Range("B2") = ""
End If
If Target.Address = "$B$2" Then
If Target <> "" Then
mr = Application.Match(Range("B2"), Sheets("Tables").Range("F:F"), 0)
Range("B4") = Sheets("Tables").Range("G" & mr)
End If
End If
End Sub
Kind regards
Leo
Bookmarks