Alex O
05-19-2011, 07:38 AM
How would my macro be edited to keep number formats exactly as they are in the source sheet? ie 262.22 becomes 262.2225. Any help is appreciated.
Sub NewUploadFile()
Workbooks.Add
ThisWorkbook.Worksheets(3).Range("A1:AB2000").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Range("A1").PasteSpecial Paste:=xlPasteFormats
Columns.AutoFit
End Sub
Sub NewUploadFile()
Workbooks.Add
ThisWorkbook.Worksheets(3).Range("A1:AB2000").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Range("A1").PasteSpecial Paste:=xlPasteFormats
Columns.AutoFit
End Sub