Format for Leading Zeros
Hi David,
add this to your code:
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open("C:\FOReport.xls", True, True)
With ThisWorkbook.Worksheets("Report")
.Range("A5:F798") = ""
.Range("A5:F798").Value =
wb.Worksheets("Report").Range("C7:H80").Value
.Range("A5:F798").numberformat="000,000"
'added row of code
End With
Change "000,000" to whatever format code you want.
Regards,
Ivan
|