Sheet Naming Issue with Date Serial

[cbzdmh]

Hi All,

I have a pice of code running which has a variable named FTdate which returns a date in serial form, i need to name a new worksheet in the mmm-yy format, how do i convert from serial to the required string.

Any help appreciated.

 

[VoG]

Try

ActiveSheet.Name = Format(FTdate, "mmm-yy")

 

[cbzdmh]

I'm getting: run time errors

For i = 1 To UBound(MyArr)

dDate = MyArr(i)
dDate = DateSerial(Year(dDate), Day(dDate), Month(dDate))
ldate = dDate

ws.Range("A1").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, dDate)
Application.ScreenUpdating = True

    LR = ws.Range("A" & Rows.Count).End(xlUp).Row
    If LR > 1 Then
        If Not Evaluate("=ISREF('" & ldate & "'!A1)") Then
            Set wsnew = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            wsnew.Name = ActiveSheet.Name = Format(dDate, "mmm-yy")
        Else
            Sheets(ldate).Move After:=Sheets(Sheets.Count)
            Sheets(ldate).Cells.Clear
        End If
        ws.Range("A2:BR" & LR).SpecialCells(xlCellTypeVisible).Copy
       
        wsnew.Range("A1").PasteSpecial xlPasteAll
        ws.Range("A1").AutoFilter Field:=1
        MyCount = MyCount + wsnew.Range("A" & Rows.Count).End(xlUp).Row - 1
        wsnew.Columns.AutoFit
    End If
Next i

 

[VoG]

It should be

wsnew.Name = Format(dDate, "mmm-yy")

 

[cbzdmh]

Hi, sorry that was a mistake in me putting the code in, changed it but it still errors, i think it might be because the FTdate is a mm-dd-yyyy.

Does this make sense?