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.