i cant upload the workbook as its over the filesize rules, is there anyway i can datestamp the cell when a new sheet is created based on that months date?i have a button where it creates a new worksheet and names it based on a month:
Sub NewSheet()
Dim Sheetname As String, MStr As String, Mth As String
Mth = ActiveSheet.Range("A3")
MStr = "January-February-March-April-May-June-July-August-September-October-November-December-January-"
Sheetname = Left(Mid(MStr, InStr(1, MStr, Mth) + Len(Mth) + 1, Len(MStr)), InStr(1, Mid(MStr, InStr(1, MStr, Mth) + Len(Mth) + 1, Len(MStr)), "-") - 1)
ActiveSheet.Copy Sheets(Sheets.Count)
ActiveSheet.Name = Sheetname
Range("A10:L200").ClearContents
End Sub
and then a cell where it has the formula =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256)
and that determines the month and name of the sheet, is there anyway where at the moment the Cell O1 and O2 has the formulas =TODAY() and =MONTH(O1) and then possibly not have O2 update automatically?
cheers
Bookmarks