Copy multiple sheets to a new workbook

Hi All!

I am looking for some code to copy the exact values in a couple sheets over to a new workbook. There are images in the sheet that need to come over and formatting of cells including merging.

Could anybody give me a hand. I've tried a number for sources

Sub CopyItOver()
   Dim Output As Workbook
   Dim Current As String
   Dim FileName As String
  
   FileName = Worksheets("WC").Range("W1").Value  
   
    Set Output = Workbooks.Add
    Current = ThisWorkbook.FullName
   
  ThisWorkbook.Worksheets("WC").Range("A1:M110").Copy
  
  With Output.Worksheets("Sheet1").Range("A1")
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
  
  Output.SaveAs FileName, XlFileFormat.xlOpenXMLWorkbook
  
End Sub

That works great! Only thing I've really run into would be removing hidden cells.

Thanks a bunch!

How do I update the Post to solved?