Logic Question - Deletion of cell value

[Ark68]

I have a dynamic list of values that fill 'x' number of cells in a single column (C).
If I have a user enter a number in A4, how would I go about deleting that same number from column C and having the data below that value move up to fill the vacant cell? (move cells up)?

Jenn

 

[VoG]

Try

Sub test()
Dim Found As Range
Set Found = Columns("C").Find(what:=Range("A4").Value, lookat:=xlWhole)
If Not Found Is Nothing Then Found.Delete shift:=xlShiftUp
End Sub

 

[Ark68]

Thank you VoG ...

I'm getting a "Delete Method of Range Class Failed" error on:

If Not Found Is Nothing Then Found.Delete shift:=xlShiftUp

Jenn

 

[VoG]

I did test the code and it worked for me. Is the sheet protected?