VBA Copy and Paste Special Values only from one Workbook to another

[jeff_ro]

Help,

I am trying to copy a selection of worksheets from one workbook to another. The issue i have is that when they copy across the formulas are copied across, whereas i only want the values.

i have searched high and low, but cant seem to get nothing to work.

My code keeps all the formatting as i require but i just want the values not all my underlying formulas. Can anyone offer any ideas

here is my current code:

Private Sub Save_NewWb()
Application.ScreenUpdating = False
On Error Resume Next

UpdateFooters
SaveLoc = BrowseForFolder & "\" & Range("trigramD").Value & " " & Range("name").Value & " SCS"
If fso.FolderExists(SaveLoc) Then
    If MsgBox("Folder already exists, delete?", vbYesNo, "Error") = vbYes Then
        fso.DeleteFolder (SaveLoc), True
    Else
        Exit Sub
    End If
End If
fso.CreateFolder (SaveLoc)
SaveLoc = SaveLoc & "\"
For i = LBound(Range("version_list").Value) To UBound(Range("version_list").Value)
    If Len(Range("version_list")(i).Value) > 0 Then IssueNo = Range("version_list")(i).Value
Next i
FileLabel = Range("trigramD").Value & " " & Range("Vessel_name").Value & " SCS.iss " & IssueNo & ".xls"
Sheets(Array("SCS Front Page", "Copyright", "Subnet Overview", "VLAN 20", "VLAN 10,30,50", "WAN")).Copy
        ActiveWorkbook.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        ActiveWorkbook.SaveAs Filename:= _
        SaveLoc & FileLabel, FileFormat:=xlNormal, ReadOnlyRecommended:=False, CreateBackup:=False
              
   End Sub