Solved: Renaming Worksheet during Copy fails

[YellowLabPro]

[VBA]
With ActiveWorkbook
With Worksheets("Sheet1")

.Copy after:=Wsm
ActiveSheet.Name = strfilename = mid$(wbkname, instrrev(wbkname, "\")+1 and _
Left(wbkName, Len(wbkName) - 4) & Chr(32) & Format(Now, "m-dd-yy")
End With
[/VBA]
is psuedo code