Hi All,


I have a strange problem (or may be I do not understand it well)


I am trying to run a code on the Before Save event which would delete
sheet named as todays date (The function here will convert date in a
string format t be saved) .


The problem is when I press the Alt Save button it runs fine and
deletes the sheet named "5-2-2007" but when I save the file using an
Activex Button that I created on the sheet it does't deletes the
sheet.


The Button has the code:


activeworkbook.save


following is the code I have .....


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)


Dim NameOfCurrentSheet As String


NameOfCurrentSheet = NameOfToday(Now())
Sheets(NameOfCurrentSheet).Delete


End Sub


Function NameOfToday(d As Date) As String
Day1 = Day(d)
Month1 = Month(d)
Year1 = Year(d)


NameOfToday = Day1 & "-" & Month1 & "-" & Year1
End Function


Thanking you all in advance.


Regards
Ankur Richard
www.xlmacros.com