sure

remove the dim withevents IE line
remove the Set IE = line
change IE to the name of your webbrowser control