SAVE AS untuk BackUp data menggunkan textbox utnuk membuat nama baru filenya,
Auto copy /gandakan file sesuai namanya untuk backup.
Hasils Save As di Document
Private Sub CMDTRANSFERDATA_Click()
Dim newName As String
newName = TextBox1.Value
ActiveWorkbook.SaveAs Filename:=newName
MsgBox " TRANSFER / COPY TRANSAKSI DONE"
End Sub