Create New Workbook

[fari1]

I want to save as my active sheet of current workbook as new file and new file name would be the Cell reference of active sheet.
this is urgent, waiting anxiously for the response plz

 

[fari1]

working perfect, thanks alot VOG, match cell value is not possible?

 

[VoG]

The file name includes the value of C5 from sheet prof.

 

[fari1]

no, i mean that while next save, it must check if the first part of file name is matching with cell value, if it does, then replace that file else create a new one, e.g if the file name includes goog as cell value then while next time saving it must not create goog name file, it would be dulplicated

 

[VoG]

Try this

Sub NewWB()
Dim p As String, q As String, r As String
p = ActiveWorkbook.Path
q = Sheets("prof").Range("C5").Value
If Not DirExists(p & "\Output") Then MkDir (p & "\Output")
r = Dir(p & "\Output\" & q & "*")
If r <> "" Then Kill p & "\Output\" & r
ActiveSheet.Copy
With ActiveWorkbook
    Application.DisplayAlerts = False
    .SaveAs Filename:=p & "\Output\" & q & " " & Format(Now, "dd-mm-yy hh-mm") & ".csv", FileFormat:=xlCSV
    Application.DisplayAlerts = True
    .Close savechanges:=True
End With
End Sub

Function DirExists(SDirectory As String) As Boolean
If Dir(SDirectory, vbDirectory) <> "" Then DirExists = True
End Function

 

[fari1]

you'r the bestest VOG, thanks alottttttt