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

Good afternoon,

I am trying to create a macro that will grab a inactive/hidden worksheet and move it to another existing Excel file, then rename that new sheet according to a cell value.

I tried searching - and this comes up as something close, but it prompts to ask what name should be assigned, while I want it to be renamed just accordingly to one of the cells. It also copies the active worksheet rather than another predesignated ws. Also, it copies the ws to a new file, rather than an existing one.

Sub testerer() 
    Dim ws As Worksheet 
    Set ws = ActiveSheet 
    Dim s As String 
    s = InputBox("What would you like to name the new sheet?") 
    ws.Name = s 
End Sub 
 
Sub testerest() 
    Dim ws As Worksheet 
    Set ws = ActiveSheet 
    On Error Resume Next 
    ws.Name = [A3].Value 
End Sub

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

It seems to just copy the sheet into the file I was working on, rather than the destination file.

Here is my tweaked code:

Sub export1splitter()
    Dim WBook As String
    Dim WSheet As String
    Dim WName As String
    
    WBook = "C:\Products\1 Products\Product A\PRICE DATABASE 04 06 16"
    WSheet = "1 Splitter Calculation"
    WName = Range("C3").Value
    
    With Sheets(WSheet)
        .Name = WName
        .Copy After:=Sheets(Sheets.Count)
    End With
End Sub

Any help is appreciated!

Can I replace

.Copy Before:=Workbooks( target workbook ).Sheets(1)

with:

.Copy After:=Sheets(Sheets.Count)