Vba to clear values

With ThisWorkbook
    .Sheets("Sheet1").Range("D5:Q40").Clear
    .Sheets("Sheet2").Range("C5:R40").Clear
End With

BSB

Originally Posted by BadlySpelledBuoy

With ThisWorkbook
    .Sheets("Sheet1").Range("D5:Q40").Clear
    .Sheets("Sheet2").Range("C5:R40").Clear
End With

BSB

That's great. Would it be possible to add a "are you sure" to it to stop someone accidentally pressing clear?