SelectCase.vb

Option Explicit
Option Private Module

Sub Testing()

    Dim strCell As String
    
    With ActiveSheet
    
        strCell = Left(.Cells(1, 1), 5)
        Select Case LCase(strCell)
            Case "inter"
                .Cells(5, 11) = "Intercompany Loan"
        End Select
        
    End With

End Sub