Dim vbResponse As VbMsgBoxResult

vbRepsonse = MsgBox("Are you sure that you would like to clear the contents of the range?", vbYesNo, "Clear?")

   If vbResponse = vbYes Then
      Range("C7:E91").ClearContents
   Else
      Exit Sub
   End If