Thanks Tom and Chip.
I eventually got access to a reply from Norman, which mirrors yours. It
works fine, just a shame macros have to be enabled.

Cheers
Bruce


Hi Bruce,

Try assigning the following code to a button:

'=============
Public Sub Tester()
Dim rng As Range

Set rng = Range("DataEntry") '<<==== CHANGE

rng.ClearContents

End Sub
'<<=============


---
Regards,
Norman


"Bruce" wrote in message
...
PS
I posted this question on 8.3.06, but cannot access the response from
Norman
Jones.

Bruce