I think you need to actually Call the Macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AA7")) Is Nothing Then
Select Case Range("AA7")
Case "1": Call SPOR
Case "2": Call Avg_Chk
End Select
End If
End Sub
Also, you could think about possibly running/calling the macro within the userform and using ComboBox1_Change() Then when you change the ComboBox between 1 and 2 you can call your macro right there.
Untested
Private Sub ComboBox1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
Select Case index
Case Is = 0
Call SPOR
Case Is = 1
Call Avg_Chk
End Select
End Sub
Bookmarks