reset certain cells to a default value

[JcR]

How do i
1) put a button on on worksheet that when selected
2) will change any/all entered values of certain cells back to a default value

 

[Don Guillett]

sub resetdefaults
range("a1")=1
range("a2")="Hi"
etc
end sub