Here's my code:
Function Export()
Dim Fname As String, ws As Worksheet
Fname = "Vesting Review - " & Sheets("Instructions").Range("D5").Value
Sheets(Array("VDR", "SP", "DDR", "VOR", "TDR")).Copy
For Each ws In ActiveWorkbook.Worksheets
With ws.UsedRange
.Value = .Value
End With...