I think you need this ..
Dim n as Integer For n = 5 to 17 msgbox cells(n,3) '--> sched waste msgbox cells(n,4) '--> type of treatm msgbox format(cells(n,5),"dd/MM/yyyy") '--> Lic exp msgbox cells(n,6) '--> email colNext