Copy and Paste Data from Protected sheet to new workbook

[MisterMayhem869]

I am trying to copy just the data to a new workbook. The source sheet is protected, the new workbook does not need to be. I am using the following code:

Sub CopyWorksheetValues()
Application.CopyObjectsWithCells = False
ActiveSheet.Copy
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

It does create the new workbook however I get a runtime error I would like to get rid of. I have experimented with ActiveSheet.Unprotect but have not had any luck so far. Any help would be gretly appreciated.

 

[Wookiee]

Please try this:

Sub CopyWSValues()


Dim wksNew As Worksheet
Dim wksSource As Worksheet

Set wksSource = ActiveSheet

Workbooks.Add
Set wksNew = ActiveSheet

With wksSource

  .Cells.Copy

End With

With wksNew

  .Activate
  .Range("A1").PasteSpecial Paste:=xlPasteValues

End With

End Sub

 

[MisterMayhem869]

Thank you! Works like a charm.