if not worksheets("sheet2").range("g:g").find("到期项") is nothing then msgbox "有到期", vbokonly, "提示"end if