Delete cell

[Flex13CMP]

hello mr excel,
I have a problem for anybody to work out
I want to delete everything in a cell, I have tried this macro but it does not seem to work, could somebody out there fix it for me please thank you.

Private Sub CommandButton1_Click()
Range("A1").Select
Dim n As Integer
n = 11
Do Until Range("c" & CStr).Value = TextBox1
n = n + 1
Loop
Range("C" & CStr).Select
Range("F" & CStr).Select
Range("H" & CStr).Select

End Sub

 

[bergy]

I don't see any 'delete' command in your code. What do you want to delete?

 

[Flex13CMP]

I want to search say apple using a userform and then just click on a button and it is deleted from the sheet.