Forum Discussion

SamM750's avatar
SamM750
Copper Contributor
Dec 12, 2024

I need a little help

I've played around with the code and I still can not get it to execute the command.   Here is the code in question.   If [C2] = "Initial Legal Filing" And [C34] = "Two Defendants-Served at Differ...
Formulas and Functions
Macros and VBA
arnel_gp's avatar
arnel_gp
Iron Contributor
Dec 13, 2024

add code to the Workbook_SheetChange event:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Const YOUR_SHEET As String = "SHEET1"

    If UCase(Sh.Name) = YOUR_SHEET Then
            With ActiveSheet
                If .Range("$C$2") & "" = "Initial Legal Filing" And .Range("$C$34") & "" = "Two Defendants-Served at Different Addresses" Then
                    Sheets("Sheriff's Svc-Addtl Address").Visible = -1
                Else
                    Sheets("Sheriff's Svc-Addtl Address").Visible = 0
                End If
            End With
    End If
                
End Sub

 

Resources