if range("a1").value="" then mes1="社員番号"
if range("b1").value="" then mes1=mes1 & " 日付"
if range("c1").value="" then mes1=mes1&" 時刻"

if mes1 <> "" then
msgbox mes1&"がありません",vbokonly
exit sub
end if