Sub create_hardcopyj()
Dim ws As Worksheet
Dim ffName As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Save Master
ActiveWorkbook.Save
'create and save new workbook with date stamp
Workbooks.Add
Dim ffName As String
ffName = Application.Workbooks("North South Performance Monitor Master").Worksheets("Summary").Range("g3").Text
ActiveWorkbook.SaveAs Filename:="North South Performance Monitor " & ffName
'copy over all valid worksheets
Windows("North South Performance Monitor Master").Activate
Sheets(Array("Non Task Closed", "Task Closed", "South Formal", _
"South Non Formal", "North Formal", "North Non Formal", "Summary")).Select
Sheets(Array("Non Task Closed", "Task Closed", "South Formal", _
"South Non Formal", "North Formal", "North Non Formal", "Summary")).Copy Before _
:=Workbooks("North South Performance Monitor " & ffName).Sheets(1)
For Each ws In Workbooks("North South Performance Monitor " & ffName).Worksheets
With ws
.UsedRange.Copy
.PasteSpecial xlPasteValues
End With
Next
End Sub