hi all - this one is a bit beyond me and need some help. the code below will create my file in the shared network directory, but how can i change this to make a folder with the same name as the file name and then save the file in that folder?
TIA
Code:
Option Explicit
Sub SvMe()
'Saves filename as value of A1 plus the current date
Dim newFile As String, fName As String
' Don't use "/" in date, invalid syntax
fName = Worksheets("Lists").Range("J1").Value
'Change the date format to whatever you'd like, but make sure it's in quotes
newFile = fName & " " & Format$(Now(), "dd.mm.yy hhmm AMPM") & ".xlsm"
' Change directory to suit your PC, including USER NAME
ActiveWorkbook.SaveAs "\\mdzausutwfnp001\Shardata\Change Management\Plant Change Requests\Submitted PCRs\" & newFile
End Sub
TIA