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