If And function in VBA

Hi All,

I hope you are well. I hope you can assists me with the following:

I used to have a code running from one cell selection and it looked like the following:

Option Explicit

Public sheetactivated As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$103" Then
        If Range("'Client info'!C103").Value = "Large Enterprise" Then
            Sheets("Skills Spend & Learnerships").Rows("1:153").EntireRow.Hidden = False
            Sheets("Skills Spend & Learnerships").Rows("154:422").EntireRow.Hidden = True
            End If
    End If
    If Target.Address = "$C$102" Then
        If Range("'Client info'!C102").Value = "Yes" Then
            Sheets("Skills Spend & Learnerships").Rows("135").EntireRow.Hidden = False
            Sheets("Skills Spend & Learnerships").Rows("140").EntireRow.Hidden = True
            Sheets("Skills Spend & Learnerships").Rows("230").EntireRow.Hidden = False
            Sheets("Skills Spend & Learnerships").Rows("235").EntireRow.Hidden = True
        ElseIf Range("'Client info'!C102").Value = "No" Then
        Sheets("Skills Spend & Learnerships").Rows("135").EntireRow.Hidden = True
        Sheets("Skills Spend & Learnerships").Rows("140").EntireRow.Hidden = False
        Sheets("Skills Spend & Learnerships").Rows("230").EntireRow.Hidden = True
        Sheets("Skills Spend & Learnerships").Rows("235").EntireRow.Hidden = False
        End If
    End If
End Sub

Te latter part of the code I've added with the introduction of a new function, however it does not work as some lines will be unhidden due to the latter part of the code. Now I was wondering if their is not a code similar to that of a "If AND"Function? I hope I make sense. Any help would be greatly appreciated.

Please reformat your code, it's partly unreadable

Perhaps...Unless...Are you wanting code to run depending on both C102 & C103 entries...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet: Set ws = Sheets("Skills Spend & Learnerships")
If Not Intersect(Target, Range("C103")) Is Nothing Then
    Application.EnableEvents = False
    If Target = "Large Enterprise" Then
        With ws
            .Rows("1:153").Hidden = False
            .Rows("154:422").Hidden = True
        End With
    End If
    Application.EnableEvents = True
End If
If Not Intersect(Target, Range("C102")) Is Nothing Then
     Application.EnableEvents = False
     Select Case Target
        Case Is = "Yes"
        With ws
            .Range("135:135,230:230").EntireRow.Hidden = False
            .Range("140:140,235:235").EntireRow.Hidden = True
        End With
        Case Is = "No"
        With ws
             .Range("135:135,230:230").EntireRow.Hidden = True
            .Range("140:140,235:235").EntireRow.Hidden = False
        End With
    End Select
    Application.EnableEvents = True
End If
End Sub