VBA Excel 2010, isError function -

i want program output message if no error found.

   sub casesvsqueue()                  dim loop_counter integer                  dim cold_counter integer                  loop_counter = 1                  cold_counter = 2       until isempty(sheets("sheet1").range("a" & loop_counter).value)               if iserror(sheets("sheet1").range("c" & loop_counter).value)                           sheets("sheet1").range("d" & cold_counter).value = sheets("sheet1").range("a" & loop_counter).value                     cold_counter = cold_counter + 1               end if              loop_counter = loop_counter + 1       loop end sub 

at end after loop, before close sub add this:

      loop     if cold_counter = 2 msgbox "everything fine" end sub 

basically because cold_counter 'counts' errors, if doesn't change during loop, stays = 2, have msgbox saying no error come up.

you can leave rest of vb untouched. tried out , seems work fine.