Prevent loosing format when merging columns.

[Livin404]

Greetings,
I have a column where there has to be a five digit number. Sometimes the number will lead of with Zeros. I use

Sub Tail_Number()
Range("E:E").NumberFormat = "00000"
End Sub

This does get me what I need. However when I merge Columns "D" and "E" I loose the 5 digit minimum format that I already established. The following VBA works fine apart from dropping leading zeros. For example I could end up with something like B737\959 while I want to have B737\00959

Sub Merge_Acft_Tail()

For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
    Cells(i, "D").Value = Cells(i, "D").Value & "\" & Cells(i, "E").Value
Next i
Columns(5).Delete
End Sub

Thank you so much and happy New Year

End Sub

 

[bebo021999]

Try. text:

Cells(i, "D").Value = Cells(i, "D").Value & "\" & Cells(i, "E").text

 

[Livin404]

Try. text:

Cells(i, "D").Value = Cells(i, "D").Value & "\" & Cells(i, "E").text

Perfect thank you so much!