Macro to find Text

[howard]

I need to find text containing Rental - Premises Dept1, Rental - Premises Dept2 etc and if so, then in Col E to insert Expense and in Col F No Input Vat



I have written the following code , but cannot get it to work. When Running the macro, nothing happens

Your assistance in resolving this is most appreciated

 Sub Find_Rental_Premises ()

 Dim x1 As Long, vl As String
   For x1 = 1 To Cells(Rows.Count, 2).End(xlUp).Row
   vl = Cells(x1, 2).Value
    If InStr(vl, "*Premises*") > 0 Then
     Cells(x1, 5) = "Expense"
     Cells(x1, 6) = "No Input Vat"
    End If
       
   Next

End Sub

 

[Michael M]

you don't need the wildcard in the Instr
Instr by its nature is looking for "premises" within the string

 Sub Find_Rental_Premises()
 Dim x1 As Long, vl As String
   For x1 = 1 To Cells(Rows.Count, 2).End(xlUp).Row
   vl = Cells(x1, 2).Value
    If InStr(vl, "Premises") > 0 Then
     Cells(x1, 5) = "Expense"
     Cells(x1, 6) = "No Input Vat"
    End If
       
   Next

End Sub

 

[howard]

Hi Michael

Thanks for the advice