right then, i have this:

Sub totalsend()
Dim rownum As String
Dim Tday As String


Tday = Format(Date, "YYYY_MM_DD")


ActiveWorkbook.SaveAs FileName:="\\testsrv\XXXXX\" & (Tday) & ".xls"
Workbooks.Open FileName:="\\testsrv\XX\XX\totals.xls"
Windows("totals.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Totals").Select
Sheets("Totals").Move After:=Workbooks(Tday).Sheets(3)


yesterday i was making this on excell 97, today im using 2003 (woo hoo the
office finaly upgraded)

this worked before, i see no problem i am 100% sure its not spelling (the
same cannot however be said for this post) ifi hover over the Tday function
it gives the date so i know its refferancing the right thing


its going to be a set of brackets or a missing " i know it

never mind!

2003 needs the .xls after the Tday

97 didnt

all sorted!

"tigoda" wrote:

right then, i have this:

Sub totalsend()
Dim rownum As String
Dim Tday As String


Tday = Format(Date, "YYYY_MM_DD")


ActiveWorkbook.SaveAs FileName:="\\testsrv\XXXXX\" & (Tday) & ".xls"
Workbooks.Open FileName:="\\testsrv\XX\XX\totals.xls"
Windows("totals.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Totals").Select
Sheets("Totals").Move After:=Workbooks(Tday).Sheets(3)


yesterday i was making this on excell 97, today im using 2003 (woo hoo the
office finaly upgraded)

this worked before, i see no problem i am 100% sure its not spelling (the
same cannot however be said for this post) ifi hover over the Tday function
it gives the date so i know its refferancing the right thing


its going to be a set of brackets or a missing " i know it

Change
Sheets("Totals").Move After:=Workbooks(Tday).Sheets(3)
' to
Sheets("Totals").Move After:=Workbooks(Tday & ".xls").Sheets(3)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com
(email address is on the web site)


"tigoda" wrote in message
...
right then, i have this:

Sub totalsend()
Dim rownum As String
Dim Tday As String


Tday = Format(Date, "YYYY_MM_DD")


ActiveWorkbook.SaveAs FileName:="\\testsrv\XXXXX\" & (Tday) & ".xls"
Workbooks.Open FileName:="\\testsrv\XX\XX\totals.xls"
Windows("totals.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Totals").Select
Sheets("Totals").Move After:=Workbooks(Tday).Sheets(3)


yesterday i was making this on excell 97, today im using 2003 (woo hoo the
office finaly upgraded)

this worked before, i see no problem i am 100% sure its not spelling (the
same cannot however be said for this post) ifi hover over the Tday
function
it gives the date so i know its refferancing the right thing


its going to be a set of brackets or a missing " i know it