Well, depending on the type of "drop down lists" something like this could work, assuming you fill in all the information you didn't supply
Sub Data_Check()
Dim dd2, dd3
dd2 = Sheets("Sheet1").Shapes("Drop Down 2").ControlFormat.List(Sheets("Sheet1").Shapes("Drop Down 2").ControlFormat.Value)
dd3 = Sheets("Sheet1").Shapes("Drop Down 3").ControlFormat.List(Sheets("Sheet1").Shapes("Drop Down 3").ControlFormat.Value)
Select Case dd2
Case Is = "A"
Select Case dd3
Case Is = "1"
'an output for A1 would go here
Case Is = "2"
'an output for A2 would go here
Case Is = "3"
Case Is = "4"
End Select
Case Is = "B"
Select Case dd3
Case Is = "1"
Case Is = "2"
Case Is = "3"
Case Is = "4"
End Select
Case Is = "C"
Select Case dd3
Case Is = "1"
Case Is = "2"
Case Is = "3"
Case Is = "4"
End Select
Case Is = "D"
Select Case dd3
Case Is = "1"
Case Is = "2"
Case Is = "3"
Case Is = "4"
End Select
End Select
End Sub
Bookmarks