To Find Whether the Required Sheet is Present or Not in excel

Set exc=createobject("excel.application")
Set bk=exc.workbooks.open("E:\sac2.xls")
For each  m in bk.worksheets
If m.name="shtupdate" then
x=1
Exit for
end if
Next
If x=1 Then
msgbox"Sheet is present"
else
MsgBox"Sheet not found"
End If