Formatting - Macro Edit

[Alex O]

How would mt 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

 

[bertie]

Try setting the Destination rather than using PasteSpecial.

[COLOR=darkblue]Sub[/COLOR] NewUploadFile()
   [COLOR=darkblue]Dim[/COLOR] wb [COLOR=darkblue]As[/COLOR] Workbook
   [COLOR=darkblue]Set[/COLOR] wb = Workbooks.Add
   
   [COLOR=green]'copy and paste[/COLOR]
   ThisWorkbook.Worksheets(3).Range("A1:AB2000").Copy _
      Destination:=wb.Sheets("Sheet1").Range("A1")
   
   wb.Sheets("Sheet1").Columns.AutoFit
   
   [COLOR=darkblue]Set[/COLOR] wb = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[Alex O]

Got it....thanks!