how would i do this? we use always on adsl but will use this on a few
computers with out internet connection

workbook_open

if internet = on
then
run userform1
else
run userform4
end if
end sub