[VBA] IF Statement

[Martin_H]

Hi team,

I would like to add CODE_1 in front of CODE_2 but not sure how to do it.

It has to be merged into one macro, under the Private Sub Worksheet_Change(ByVal Target As Range)

'CODE_1
If ThisWorkbook.Name = "NAME.xlsm" Then
run CODE_2
Else
Exit Sub
End If

'CODE_2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
With Application
.ScreenUpdating = False
With Worksheets("ABC")
.Unprotect "PASSWORD123"
Call FILTER
Call ADD_DROP_DOWN_LIST
.protect "PASSWORD123"
End With
.ScreenUpdating = True
End With
End If
End Sub

TY for help!

 

[Sparcot]

Hello. I assume that your Worksheet("ABC").Range("F1") is unlocked. Otherwise you won't be able to trigger the code.

Private Sub Worksheet_Change(ByVal Target As Range)
    If ThisWorkbook.Name = "NAME.xlsm" Then
        If Target.Address = "$F$1" Then
            With Application
                .ScreenUpdating = False
                With Worksheets("ABC")
                    .Unprotect "PASSWORD123"
                    Call Filter
                    Call ADD_DROP_DOWN_LIST
                    .Protect "PASSWORD123"
                End With
                .ScreenUpdating = True
            End With
        End If
    Else
        Exit Sub
    End If
End Sub