daily pastebin goal
63%
SHARE
TWEET

Untitled

a guest May 16th, 2018 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim Path As String
  2. Dim FileName1 As String
  3. Dim FileName2 As String
  4.  
  5. Path = "D:folder1folder2ProjectsThe FILEStheFILES"FileName1"
  6.  
  7. FileName1 = Range("B6")
  8. FileName2 = Range("A1")
  9.  
  10. ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
  11.    
  12. Dim Path As String
  13. Dim FileName1 As String
  14. Dim FileName2 As String
  15.  
  16. FileName1 = Range("B6").Value
  17.  
  18. FileName2 = Range("A1")
  19. Path = "D:folder1folder2ProjectsThe FILEStheFILES" & FileName1 & ""
  20.    
  21. Dim Path As String
  22. Dim FileName1 As String
  23. Dim FileName2 As String
  24.  
  25. FileName1 = Range("B6")
  26. FileName2 = Range("A1")
  27.  
  28. Path = "D:folder1folder2ProjectsThe FILEStheFILES" & FileName1 & ""
  29.  
  30. ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
  31.    
  32. Str = "This string contains a "" character"
RAW Paste Data
Top