.Cells(R, 3).NumberFormat = "000"

this still doesnt convert it????