How to Keep a leading Zero in this IF statement.

[Macro_Nerd99]

   If Len(ws1.Cells(i, 1)) > 0 Then

          ws1.Cells(i, 10) = "Call Update(""" & ws1.Cells(i, 1) & """,""" & ws1.Cells(i, 2) & """,""" & ws1.Cells(i, 3) _
          & """,""" & ws1.Cells(i, 4) & """,""" & ws1.Cells(i, 5) & """,""" & ws1.Cells(i, 6) & """,""" & ws1.Cells(i, 7) & """)"
  End If

I have Cell (i,7) formatted as a date like mm/dd/yyyy to keep the leading Zero, but then when I run this IF statement part of the macro, it doesn't keep the leading zero in cell (i,10) at the end and that's an issue. How do I fix this?

 

[Joe4]

Change this part:

ws1.Cells(i, 7)

to this:

Format(ws1.Cells(i, 7),"mm/dd/yyyy")

 

[Macro_Nerd99]

Perfect! Thanks

 

[Joe4]

You are welcome!

Yes, it is important to note that those references only pull back the cell values, not the formats associated with those cells.
That is why you need to apply the format in the VBA code.