Sub PastetoMatrixWorkbook()
Application.ScreenUpdating = False
If isWorkbookOpen("Matrix.xls") = False Then Workbooks.Open Filename:="C:\Matrix.xls"
Workbooks("EMPSEC Data.xls").Sheets("Drop-Down Data").Cells.Copy
Workbooks("Matrix.xls").Sheets("Drop-Down Data").Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("EMPSEC Data.xls").Sheets("Matrix Results").Cells.Copy
Workbooks("Matrix.xls").Sheets("Matrix Results").Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
With Workbooks("Matrix.xls")
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub
Function isWorkbookOpen(workbookName As String) As Boolean
On Error Resume Next
isWorkbookOpen = (Workbooks(workbookName).Name = workbookName)
On Error GoTo 0
End Function