Thank you so much
Thanks
N.Sundarvelan
9600160150
On Wed, Feb 29, 2012 at 8:05 PM, dguillett1 dguille...@gmail.com wrote:
Or this which copies template to the end.
Private Sub Workbook_Open()
Dim mydate As String
mydate = Format(Date, dd-mm-)
With Sheets(Sheets.Count)
If .Name
Hi Friends,
I need a help in my project. I have excel file in which template sheet is
constant. When i open that file in the morning it should copy the template
sheet and rename the sheet with todays date. In the same day i will be
closing and opening that file many times but it should not insert
First:
save your file as .xlsb or .xlsm...
Then create a Workbook Open event macro in the Thisworkbook module:
Private Sub Workbook_Open()
Dim Sht
Err.Clear
On Error Resume Next
Sht = Format(Now(), dd-mmm-yy)
Sheets(Sht).Select
If (Err) Then
Sheets(TEMPLATE).Copy
Dear Sundar,
Wrong attachment, Please ignore it..
On Wed, Feb 29, 2012 at 6:21 PM, NOORAIN ANSARI noorain.ans...@gmail.comwrote:
Dear Sundar,
Please see attached sheet, you can use..
Sub Count_VBA()
On Error Resume Next
c = 1
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name
Or this which copies template to the end.
Private Sub Workbook_Open()
Dim mydate As String
mydate = Format(Date, dd-mm-)
With Sheets(Sheets.Count)
If .Name mydate Then
Sheets(Template).Copy after:=Sheets(.Index)
ActiveSheet.Name = mydate
End If
End With
End Sub
Don Guillett
SalesAid
