Vba= Copy hidden sheet to a new workbook

[SimbadS]

Hi!
I have a problem that i cant solve correct.

I want to use VBA to:
Unhide a very hidden sheet, copy that sheet to a new workbook and hide sheet again in originally workbook.
Also in the process i want to kill formulas in the NEW sheet because there is some tekst/numbers that need to stay as is in originally sheet/woorkbook.
Also if possible name the new woorkbook as example A1 in the sheet`?

Here is what i have so far and im strugling now with the "hide" process:

Sub copy_Hide_Sheet()
   Dim Ary As Variant
   Dim Ws As Worksheet
   Dim i As Long
   
   ReDim Ary(1 To Worksheets.Count)
   Sheets("Sheeteksample").Visible = True
   
   For Each Ws In Worksheets
   
   Next Ws
   
   Sheets("Sheeteksample").Copy
   Sheets("Sheeteksample").Visible = False
   For Each Ws In Worksheets
   
      With Ws.UsedRange
         .Value = .Value
      End With

   Next Ws

   

End Sub

Thanks!

 

[Fluff]

How about

Sub SimbadS()
   Dim Ws As Worksheet
   
   Set Ws = Sheets("Sheeteksample")
   Ws.Visible = xlSheetVisible
   Ws.Copy
   With ActiveSheet.UsedRange
      .Value = .Value
   End With
   Ws.Visible = xlSheetVeryHidden
End Sub

 

[SimbadS]

Like a Charm!
Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback