cambiar mensage de error al relizar una division 0

if cells (2,2)= then
msgbox("no se puede dividir el numero entre cero")
else
cells(1,6)= cells(1,1)/cells(1,2)
end if