Macro to copy a hidden worksheet to an existing workbook then rename.

Sub testerest()
    Dim WBook As String
    Dim WSheet As String
    Dim WName As String
    
    WBook = "Destination Workbook.xlsx"
    WSheet = "Hidden Worksheet Name"
    WName = Range("A3").Value
    
    With Sheets(WSheet)
        .Name = WName
        .Move Before:=Workbooks(WBook).Sheets(1)
    End With
End Sub