I get an error everytime I run this.
I need to find a way to avoid the error but still keep my program
running.
can anyone help me plz?


Dim sngtime

sub test()

Range("A11").select
Application.run "test.xls!sheet1.test"
sngtime = timer + 1.5
do while timer < sngtime
doevents
loop
application.run "test.xls!sheet1.test"

end sub