How to get the sheet name from a prompt input

[timleonard]

I am trying to get the worksheet name from a prompt input box

The following will work the first time through but not the next. Can someone point me in the right direction

Sub Getsheetname()
 
    Dim address As String
    Dim address1 As String
    Dim address2 As String
    Dim shtname As String
 
 
    'Show input box to get where they want it paste
    Set OutputCells = _
    Application.InputBox(prompt:="Select the Range to paste the Calcs", _
    Title:="Select the range to Paste the Calcs", Type:=8)
    On Error GoTo 0
 
    If OutputCells Is Nothing Then GoTo ExitProc
 
    Application.ScreenUpdating = False
 
    'Get the Sheet name of the outputcells
    address = OutputCells.address(External:=True)
    address1 = Right(address, Len(address) - InStr(1, address, "]"))
    address2 = Left(address1, Len(address1) - InStr(1, address1, "!"))
    shtname = address2
 
    'Select the Sheet
    Worksheets(shtname).Select
    Range("A1").Select
 
    'check the sheet name
    'Cells(1, 1) = shtname
 
ExitProc:
 
    Set OutputCells = Nothing
 
End Sub
 

I really would appreciate any help I could get

[timleonard]

Looks like i figured it out...
I used

    'Get the Sheet name of the outputcells
    shtname = OutputCells.Parent.Name
 

instead or the folowing and it seems to work

 
'Get the Sheet name of the outputcells
    address = OutputCells.address(External:=True)
    address1 = Right(address, Len(address) - InStr(1, address, "]"))
    address2 = Left(address1, Len(address1) - InStr(1, address1, "!"))
    shtname = address2