Delete cell values

[MrThor]

Hi,

I want to be able to click on cell "B5" which is called "delete" and rhen be able to choose which cell I want to delete the value in. How do I do?!

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  8/25/2018  5:59:13 AM  EDT
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
On Error GoTo M
Dim ans As Variant
ans = InputBox("Enter cell location where you want value cleared", , "E2")
Range(ans).ClearContents
End If
Exit Sub
M:
MsgBox "You entered  " & ans & vbNewLine & "Which is a improper Range"
End Sub

 

[Yongle]

or try this
Simply type the cell reference into cell B5 and Enter

goes in sheet module ( right-click sheet tab \ View Code \ paste in code window)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Then
        Application.EnableEvents = False
        Range(Target.Value).ClearContents
        Target.Value = "Delete?"
        Application.EnableEvents = True
    End If
End Sub