subscript out of range new!
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
|