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

--
Message posted from http://www.ExcelForum.com