I've added row 23-27 to my code to save the active sheet with the created date and time stamp from the file that was used to import sheet one. It's bugging out on row 27. The file will save if I "Dim asof As Long" but the result is not what I require.
Dim wb As Workbook
Dim strPath As String
Dim fs, f
Dim asof As String
fileName = Application.GetOpenFilename("Other Workbook (*.xl*),*.xl*")
If fileName = "False" Then
MsgBox "You have not selected a file. Please try again."
Set wb = Workbooks.Open(fileName:=fileName)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fileName)
asof = f.DateCreated
strPath = ThisWorkbook.Path
ActiveWorkbook.SaveAs strPath & Application.PathSeparator & "Data as of " & asof