VCA/Macro kopieren van sheet met waarden als tekst

[TEAMLegendary]

Hallo op dit moment probeer ik het volgende te bereiken:

- Sheet "Upload' uit bestand 1 kopiëren naar een nieuw bestand waarbij de volledig informatie (in ieder geval kolom H!) wordt geplakt als tekst en niet als opmaak "General" meekrijgt.
Waar het nu fout gaat zit hem in het feit dat ik enkele cellen gevuld heb met "01" wat in het nieuwe bestand "1" wordt. Alleen met de opmaak "Tekst" blijft de "0" voor de "1" staan" (achteraf "01" invoeren wordt automatisch weer "1").

Op dit moment heb ik deze macro:

Sub Transfer()
Application.DisplayAlerts = False

c00 = "C:\etransaction\Upload WP " & Format(Date - 1) & ".xlsx"
ThisWorkbook.Sheets("Upload").Copy
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
With ActiveWorkbook
.SaveAs c00, FileFormat:=51, AccessMode:=xlShared
.Close False
End With
MsgBox "Uploadbestand is gecreëerd"
End Sub

Wie kan mij helpen?

 

[MDN111]

Misschien zoiets?

Sub Transfer()
Application.DisplayAlerts = False
c00 = "C:\etransaction\Upload WP " & Format(Date - 1) & ".xlsx"
ThisWorkbook.Sheets("Upload").Copy
[COLOR="#008000"]'ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value[/COLOR]
[COLOR="#FF0000"]ActiveSheet.UsedRange.NumberFormat = "@"[/COLOR]
With ActiveWorkbook
.SaveAs c00, FileFormat:=51, AccessMode:=xlShared
.Close False
End With
MsgBox "Uploadbestand is gecreëerd"
End Sub

Grtz,
MDN111.