質問: 9 then msgbox "シートaaaが存在しません。" exit sub end if end sub と記述しましたが、エラーメッセージは表示しませんでした。 どのように追記したら良いでしょうか? 宜しくお願いします。
回答: sub テスト() dim ws as worksheet dim nlast as long on error resume next set ws = worksheets("履歴") on error goto 0 if ws is nothing then msgbox "履歴シートがありません", 16 exit sub end if range("p1").formular1c1 = "テスト" nlast = cells(rows.count, 1).end(xlup).row range("p2:p" & nlast).formula = "=vlookup(k2,履歴!d:e,2,0)" end sub よく「履歴」のシート名が作れましたね https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1113237576