What is the best way/format for me to use the date for the sheet name?
Posts by DadBurne
-
-
Everything seems to work - but it throws up an error message at the end.
-
After the Macro creates the new sheets, I want it to delete the original sheets - Dates and Templates . file attached.
-
Looks like that did it - first day on forum - THANKS!!!!
-
Sorry - I thought I did - new to this forum.
-
I want the sheet name to be the date (in the list) and I am also filling a cell in the worksheet with that same value (date) through a formula in the worksheet.
-
-
Code
Display More'Function extracted from ERLANDSEN DATA CONSULTING Function SheetExists(strSheetName As String) As Boolean ' returns TRUE if the sheet exists in the active workbook SheetExists = False On Error Resume Next SheetExists = Len(Sheets(strSheetName).Name) > 0 On Error GoTo 0 End Function Sub newSheets() Sheets("Sheet1").Activate For Each cell In Sheets("Sheet1").Range("A1", Range("A65536").End(xlUp)) If Not SheetExists(cell.Value) Then Sheets("Sheet2").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = cell End If Sheets("Sheet1").Activate Next End Sub -
I am copying the below formula (and several others) and keep getting stuck at ActiveSheet.Name = cell