InputBox value to be current selection

[Fyr]

I'm using this script:

Sub deletename()
     
    inpData = Application.InputBox("Select name to delete in this worksheet and others at right")
    For s = ActiveSheet.Index To Sheets.Count
        Set c = Sheets(s).Range("A1:A65536").Find(inpData)
        If Not c Is Nothing Then
            c.EntireRow.Delete
        End If
    Next s
End Sub

I want the inputbox data to be my current selection.
For example, lets say my selection is cell A20, I want the inputbox value to be the value of A20.

Thanks for taking a look!

 

[ColinKJ]

Hi Fyr,

Try

x = ActiveCell.Text
inpData = Application.InputBox("Select name to delete in this worksheet and others at right", , x)

ColinKJ

 

[MickG]

Hi Try :-

Dim inpdata As Range
Set inpdata = Application.InputBox(prompt:="Your Prompt ", Title:="Your Title", Type:=8)

Regards Mick

 

[Fyr]

great!
Thank you very much!!