macro to get an array of values from multiple sheets

I have a code but it is not finding the values. Just goes to the msgbox. any suggestions

sub searchallsheets()
dim ws as worksheet
dim rfound as range
dim sarray as array
on error resume next
array = ('1234', '5678', '9101112', '13141516')
if sarray = "" then exit sub
for each ws in worksheets
with ws.usedrange
sset rfound = .find(what:.=sarray, after:=.cells(1,1), lookin:=xlvalues, lookat:=xlwhole)
if not rfound is nothing then
application.goto rfound, true
exit sub
end if
end with
next ws
on error goto 0
msgbox "value not found"
end sub