Cannot get two subs to run together

[MOC]

Hello,

I have two subs (actually three subs I guess) that I'm trying to get to work on one sheet. First, is this possible? If it is, how do I do it?
Thanks for any and all help in advance!

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strList As String
On Error Resume Next
Application.EnableEvents = False


   Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
   On Error GoTo exitHandler


   If rngDV Is Nothing Then GoTo exitHandler


   If Not Intersect(Target, rngDV) Is Nothing Then
      If Target.Validation.Type = 3 Then


         strList = Target.Validation.Formula1
         strList = Right(strList, Len(strList) - 1)
         strDVList = strList
         frmDVList.Show
      End If
   End If


exitHandler:
  Application.EnableEvents = True


End Sub


Private Sub Worksheet_Change1(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strSep As String
strSep = ", "
  Application.EnableEvents = False
On Error Resume Next
If Target.Count > 1 Then GoTo exitHandler




Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler


If rngDV Is Nothing Then GoTo exitHandler


If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else


  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
   If newVal = "" Then
      'do nothing
   Else
         If oldVal = "" Then
            Target.Value = newVal
         Else
            Target.Value = oldVal & strSep & newVal
         End If
    End If


End If


exitHandler:
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)Set Target = Range("W4")
If Target.Value = "HIGH" Then
 Call PostMitChoice_Initialize
End If
If Target.Value = "CATASTROPHIC" Then
Call PostMitChoice_Initialize
End If
End Sub


Private Sub PostMitChoice_Initialize()
Load PostMitChoice
PostMitChoice.Show
End Sub

[SamT]

IMO, and I admit, it is a rare opinion, Events subs should only do one thing: That is decide which subsequent sub-procedures to run.

Otherwise:

Sub Worksheet_Change1 is not a valid Event Sub

Worksheet_Change(ByVal Target As Range)
Set Target = Range("W4")
If Range("W4").Value = "HIGH" Then

Would be better as

Worksheet_Change(ByVal Target As Range)
If Range("W4").Value = "HIGH" Then

[Paul_Hossler]

Really not clear what you want to do, but I don't think that Worksheet_Change1 will ever be triggered

[MOC]

When I just have the FIRST bit of code (noted above) entered by itself, it runs and works perfectly.

-This FIRST bit of code pops up a Selection Box based on a Data Validation List AND it allows for more than one selection from that list.
-As an example: One list has: Health, Safey, Environment, Public, City, External
-When the Selection Box pops up, the user can select one or more from the list to be entered into the cell.

When I just have the SECOND bit of code (noted above) entered by itself, it runs and works perfectly.

-The SECOND bit of code pops up an alert (userform) based on specific selections from the Data Validation List.
-As an example: One list has: None, Minor, Moderate, High, Catastrophic.
-The userform is called only if the user selects HIGH or CATASTROPHIC and does not get called for any other selections from that list.

When I put both FIRST & SECOND bits of codes together in the same sheet, neither runs or works.

So, I need both bits of code to run together and work together. Is this possible?

[MOC]

I should also note ... I only need the SECOND bit of code that calls the userform to work in COLUMN "W" ONLY, it does not need to work in any other column.
So, when the user selects from the Popup Selection Box (FIRST bit of code above) in COLUMN W is either HIGH or CATASTROPHIC, then the userform must be called.
The userform is not required anywhere else in the sheet/workbook. The FIRST bit of code above must be available throughout the entire sheet.

[MOC]

I figured it out!!!

I just started moving part of the SECOND bit of code (RED BOLDED below) into the FIRST bit of code and it eventually worked when I found the right spot to place that little snippet of code!!

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strList As String
On Error Resume Next
Application.EnableEvents = False


    Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo exitHandler


    If rngDV Is Nothing Then GoTo exitHandler


    If Not Intersect(Target, rngDV) Is Nothing Then
        If Target.Validation.Type = 3 Then
            strList = Target.Validation.Formula1
            strList = Right(strList, Len(strList) - 1)
            strDVList = strList
            frmDVList.Show
        If Target.Value = "HIGH" Then
            Call PostMitChoice_Initialize
        End If
        If Target.Value = "CATASTROPHIC" Then
            Call PostMitChoice_Initialize
        End If
      End If
   End If
exitHandler:
  Application.EnableEvents = True
End Sub


Private Sub Worksheet_Change1(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strSep As String
strSep = ", "
  Application.EnableEvents = False
On Error Resume Next
If Target.Count > 1 Then GoTo exitHandler


Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler


If rngDV Is Nothing Then GoTo exitHandler


If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
   If newVal = "" Then
      'do nothing
   Else
         If oldVal = "" Then
            Target.Value = newVal
         Else
            Target.Value = oldVal & strSep & newVal
         End If
    End If
End If
exitHandler:
  Application.EnableEvents = True
End Sub


Private Sub PostMitChoice_Initialize()
    Load PostMitChoice
    PostMitChoice.Show
End Sub