select cell at random and delete contents
 

If someone could me with this I'd very grateful.

Select one cell at random in the range A2:J10 and delete the value.

Borders to be left intact.

select cell at random and delete contents
 

Try:

Sub delsome()
Dim n As Integer
n = Int(9 * Rnd + 1)
Range("J2:J10").Cells(n).ClearContents
End Sub

Hope this helps
Rowan

"JJ" wrote:

If someone could me with this I'd very grateful.

Select one cell at random in the range A2:J10 and delete the value.

Borders to be left intact.

select cell at random and delete contents
 

Sub PickRndCell()
Dim Table As Range
Dim cell As Integer, i As Integer
Set Table = Range("B6:E11")
i = Table.Cells.Count
cell = Int(Rnd() * i)
Table.Cells(cell).Select
End Sub


"JJ" wrote in message
...
If someone could me with this I'd very grateful.

Select one cell at random in the range A2:J10 and delete the value.

Borders to be left intact.