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
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