Try this

Sub Clear_details()
With Worksheets("Details")
.Range("E10").ClearContents
.Range("E13").Value = "Please Select"
End With
End Sub

Mike

"Steve" wrote:

Hiya again!

i have this so far

Sub Clear_details()
Worksheets("Details").Range("E10").ClearContents
End Sub

Which clears a cell. I also need this function fo insert into a cell E13
"Please select"


thx


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 080107-0, 07/01/2008
Tested on: 08/01/2008 10:07:53
avast! - copyright (c) 1988-2008 ALWIL Software.
http://www.avast.com