J
Jako
I am using this code to save my workbooks:
'--------------------------------------------------------------------------
Sub SaveAsTodaysDate()
Dim sFileName As String, sPath As String
Application.ScreenUpdating = False
sPath = "C:\LOGS\" 'change path here
sFileName = "NW Failures " + Format(Now(), "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs (sPath & sFileName)
Application.ScreenUpdating = True
MsgBox ("File - " & sFileName & " - Saved Successfully"), vbOKOnly
End Sub
'--------------------------------------------------------------------------
This save the workbook with the date of creation.
What i want to do is save an individual worksheet with the sam
filename formatting as above.
The worksheets i have are called "PASS" and "FAIL".
Can anyine suggest a way to do this please.
TI
'--------------------------------------------------------------------------
Sub SaveAsTodaysDate()
Dim sFileName As String, sPath As String
Application.ScreenUpdating = False
sPath = "C:\LOGS\" 'change path here
sFileName = "NW Failures " + Format(Now(), "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs (sPath & sFileName)
Application.ScreenUpdating = True
MsgBox ("File - " & sFileName & " - Saved Successfully"), vbOKOnly
End Sub
'--------------------------------------------------------------------------
This save the workbook with the date of creation.
What i want to do is save an individual worksheet with the sam
filename formatting as above.
The worksheets i have are called "PASS" and "FAIL".
Can anyine suggest a way to do this please.
TI