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.

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

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" <jj@jj.com> wrote in message
news:nexRe.18652$FA3.17785@news-server.bigpond.net.au...
> 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.
>
>