Make a non-contiguious Range of all the cells you wish to empty, named
YourDataInput.....(hold down Ctrl while maually clicking on each cell to be
emptied, then Insert Name Define, and type YourDataInput in the upper
window), then put this code in a regular module and run it....

Sub ClearYourDataInput()
Range("YourDataInput").ClearContents
End Sub

Vaya con Dios,
Chuck, CABGx3


"Electrical Wizard" <Electrical wrote in
message ...
I have data sheets which I fill out annually. The outline stays the same;
however, the data fields change. Is there a way I can clear all of the
data
fields with a couple of keystrokes.