Find Function Error

[Steve0492]

Hello,

I am trying to use the .Find function and am encountering an error. Below is my code. Does anyone know what is wrong? Thanks!

Sub Test()

Dim Mark as Range

With Sheets(Array("5 YR JAN", "5 YR OCT", "3 YR JAN", "3 YR OCT"))
    
Set Mark = .Find(What:="1557264", LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False)
End With

End Sub