Query on VBA macro no longer working

Hello

I have a macro with the following coding

Sub NewBook1()
'
Set wbSource = ActiveWorkbook
 
For Each ws In wbSource.Sheets
ws.Copy
Set wbDest = ActiveWorkbook
wbDest.SaveAs strSavePath & filePrefix & " " & ws.Name & " " & fileSuffix
wbDest.Close
Next
 
Application.ScreenUpdating = True
 
'
End Sub

It is used to create a new workbook for each tab and to name that workbook the sams as the tab name.

Since our work PC were upgraded to Windows 7 it intermittenly fails and needs to be restarted several times before it works.

Any one have any ideas?

Thanks

Stephen