Running two codes - Private Sub Worksheet_Change(ByVal Target As Range)

[countryfan_nt]

Hello friends, hope all is well.
the below code works smoothly, but I want to add another action.
I want both codes to be placed in the same sheet module, and to take actions simultaneously please:

thank you so much in advance!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("S16")) Is Nothing Then Exit Sub
 
With Target
    If Range("s16").Value = "w/o Ins" Then
    
    Range("18:18,30:30").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
   
    End If

    If Range("s16").Value <> "w/o Ins" Then
    Range("18:18,30:30").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select

End If
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("R16")) Is Nothing Then Exit Sub
 
With Target
    If Range("R16").Value = "Dubai" Then
    
    Range("17:17,29:29").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
   
    End If

    If Range("R16").Value <> "Dubai" Then
    Range("17:17,29:29").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select

End If
End With
End Sub

 

[scott_n_phnx]

As a rule, you can only have a single Worksheet event per worksheet. However, there is a work-around for it. In order to run more than one event, you must Call each from within the Worksheet event. The example below should give you an idea on how to accomplish this.

Private Sub Worksheet_Change(ByVal Target As Range)
	Call Macro1(Target)
	Call Macro2(Target)
End Sub

Sub Macro1(ByVal Target As Range)
	Do MyTask1
End Sub

Sub Macro2(ByVal Target As Range)
	Do MyTask2
End Sub

So yours would look something like

Private Sub Worksheet_Change(ByVal Target As Range)
	Call Macro1(Target)
	Call Macro2(Target)
End Sub

Sub Macro1(ByVal Target As Range)
If Intersect(Target, Range("S16")) Is Nothing Then Exit Sub
 
With Target
    If Range("s16").Value = "w/o Ins" Then
    
    Range("18:18,30:30").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
   
    End If

    If Range("s16").Value <> "w/o Ins" Then
    Range("18:18,30:30").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select

End If
End With
End Sub

Sub Macro2(ByVal Target As Range)
If Intersect(Target, Range("R16")) Is Nothing Then Exit Sub
 
With Target
    If Range("R16").Value = "Dubai" Then
    
    Range("17:17,29:29").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
   
    End If

    If Range("R16").Value <> "Dubai" Then
    Range("17:17,29:29").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select

End If
End With
End Sub

 

[countryfan_nt]

thanks a lot! Scott!!