Sub ChangeNumberFormat()
Dim Ws As Worksheet
Dim LR As Long
Dim Rng As Range, cell As Range
Set Ws = ActiveSheet
LR = Ws.Range("A" & Rows.Count).End(xlUp).Row 'Change the Column A as you needed
Set Rng = Ws.Range("A1:A" & LR) 'Change the range where you would like to apply changes
Rng.NumberFormat = "@"
For Each cell In Rng
cell = "'0" & Format(cell, "0")
Next cell
End Sub
If its many rows in a column and digits will be always 5, then format cell, custom to 00000