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