<div>
This will clear your named range<br />
<br />
Range(&quot;ClearDataRange&quot;).Cl<wbr />ear<br />
<br />
Kyle
</div>


This will clear your named range

Range("ClearDataRange").Clear

Kyle

<div>
Yep. &nbsp;And it took my formatting with it :( &nbsp; Forgot to put that stipulation in there :)
</div>


Yep.  And it took my formatting with it :(   Forgot to put that stipulation in there :)

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
In the below code before it retrieves the data I need it to clear the data that is in a range named 'ClearDataRange'.<br />
<br />

<pre><code id="code-10-27662913-1"></code></pre>
Sub GetData()<br />
<br />
&nbsp; &nbsp; 'ActiveSheet.Unprotect<br />
<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 5, 1)<br />
&nbsp; &nbsp; Y = EssVSetSheetOption(Null, 11, True)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 12, False)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 13, True)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 14, &quot;Default&quot;)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 18, False)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 24, False)<br />
&nbsp; &nbsp; X = EssVSetSheetOption(Null, 25, False)<br />
<br />
<br />
&nbsp; &nbsp; X = EssVRetrieve(Null, Range(&quot;Retrieve_Data&quot;), 1)<br />
&nbsp; &nbsp; If X = 0 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox (&quot; &nbsp; &nbsp; Data Retrieve Successful.&quot;)<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox (&quot;Retrieve Failed. Please try again.&quot;)<br />
&nbsp; &nbsp; End If<br />
<br />
&nbsp; &nbsp; Range(&quot;C15&quot;).Select<br />
&nbsp; &nbsp; 'ActiveSheet.Protect<br />
<br />
End Sub
<pre><code id="code-10-27662913-2"></code></pre>
</div>
</div>


Hi,

In the below code before it retrieves the data I need it to clear the data that is in a range named 'ClearDataRange'.

(CODE)Sub GetData()

    'ActiveSheet.Unprotect

    X = EssVSetSheetOption(Null, 5, 1)
    Y = EssVSetSheetOption(Null, 11, True)
    X = EssVSetSheetOption(Null, 12, False)
    X = EssVSetSheetOption(Null, 13, True)
    X = EssVSetSheetOption(Null, 14, "Default")
    X = EssVSetSheetOption(Null, 18, False)
    X = EssVSetSheetOption(Null, 24, False)
    X = EssVSetSheetOption(Null, 25, False)


    X = EssVRetrieve(Null, Range("Retrieve_Data"), 1)
    If X = 0 Then
        MsgBox ("     Data Retrieve Successful.")
    Else
        MsgBox ("Retrieve Failed. Please try again.")
    End If

    Range("C15").Select
    'ActiveSheet.Protect

End Sub(CODE)

Clear a Range in VBA - Excel 2007

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.