Number value in text format add 0 in front

I am looking for help with a macro that will check Column H for a number value in text format. 
If a number value in text format is found then I would like a “0” to be inserted in front if of the number. 
As a result 243 would become 0243.  I need help with the logic.  Do you know how to make this work?
   ActiveCell.FormulaR1C1 = "0243"
    Range("H3").Select

Solutions to the Problem Number value in text format add 0 in front


Hi,
 
This will add a zero to the front of the number but be aware that it doesn't check if there's already a zero so if you run it twice it will add another.
If you don't want that to happen use the second version of the code
 
Sub Add_Zero()
Dim Lastrow As Long, c As Range
Dim MyRange As Range
Lastrow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Set MyRange = Range("H1:H" & Lastrow)
For Each c In MyRange
If IsNumeric(c.Value) And Len(c.Value) > 0 Then
    c.Value = "0" & c.Value
End If
Next
End Sub
 
Sub Add_Zero1()
Dim Lastrow As Long, c As Range
Dim MyRange As Range
Lastrow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Set MyRange = Range("H1:H" & Lastrow)
For Each c In MyRange
If IsNumeric(c.Value) And Len(c.Value) > 0 And Left(c.Value, 1) <> "0" Then
    c.Value = "0" & c.Value
End If
Next
End Sub


Click here to download the registry repair application


Another Safe way to Fix the problem: Number value in text format add 0 in front:

Click here to download the registry repair application .

How to Fix Number value in text format add 0 in front with SmartPCFixer?

1. Download Error Fixer . Install it on your computer.  Click Scan, and it will perform a scan for your computer. The junk files will be shown in the scan result.

2. After the scan is done, you can see the errors and problems which need to be fixed.

3. When the Fixing part is done, your computer has been speeded up and the errors have been fixed


Related: [Solved] Creating labels in Microsoft Word Starter,How to defrag my system? [Anwsered],Solution to Error: I can't find windows journal in my Windows 7 OS. It is included in the Starter edition?,Scripted Diagnostics Native Host not working,How to Resolve - system restore points keep vanishing in windows 7?,Solution to Error: Error: "0x81000032 make sure the C: drive is online and set to NTFS" when trying to backup to external hard drive.
,Troubleshoot:External Hard Drive not listed in Windows 7 backup wizard Error
,I'm always being signed off so annoying Tech Support
,Solution to Problem: Impossible to use Internet Explorer! I keep getting the same error message every time i try to use IE.
,Solution to Problem: Referencing data in another file
,Troubleshoot:Error: "0x81000032 make sure the C: drive is online and set to NTFS" when trying to backup to external hard drive. Error,External Hard Drive not listed in Windows 7 backup wizard Tech Support,Tech Support: I'm always being signed off so annoying,Solution to Problem: Impossible to use Internet Explorer! I keep getting the same error message every time i try to use IE.,Referencing data in Access using Excel [Anwsered],Need Best Way To Present Data [Anwsered],Same question but for windows 7 home edition,sometimes fullscreen won't activate [Solved],Solution to Error: We bought a new computer with windows 7 and it is constantly freezing. How do we fix this?,Solution to Error: Windows 8 update crash (2013-07-22),Troubleshooting:pfstudiox Error,[Solved] Svchost Helper,[Solution] Sm1bg exe,How to Fix Problem - Io Device?,Fast Solution to Problem: I Can Error Code 0x6d9
Read More: Troubleshooter of Error: numeric keypad haywire,Solution to Error: NVIDIA GeForce GT220 test failed,How Can I Fix - Not receiving an error code just not getting my e-mail in Outlook. I was picking up mail from Windows Live. I had someone send e-mail to all my contacts asking for money and e-mail was shut down. Please help?,Fast Solution to Problem dell support center has stopped working,Troubleshooter of Error: numeric keypad haywire,Need to change the programs in Start Up mode.,needing to correct error- 0x80070002,New windows7 machine won't connect to my older vista network/workgroup,New Dell Inspiron 20 mouse will not work,New Windows 7 Asus laptop won't connect to internet