Run Time Error

[billandrew]

Afternoon

Is there a work around to the below seems to work well in other scripts.

The error occurs at the ThisWorkbook.Activate

Thanks All...

Dim filepath As StringSet wb2 = Workbooks.Add
ThisWorkbook.Activate
ActiveSheet.Copy before:=wb2.Sheets(1)
wb2.Activate
filepath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
wb2.SaveAs filepath & "Results" & " " & Format(Now, "mm-dd-yy hhmm") & ".xlsx", FileFormat:=51

 

[Michael M]

Glad [bold]WE[/bold] could help.
For future reference, when posting please post ALL of the code, not just the bits you think might be the problem.
ALL of the code gives us a better idea of what is happening, where else there may be issues AND is far easier to debug...