Help with Clear Contents

[SUSAN BAXTER]

<code class="western">[FONT=Liberation Serif, serif]I have one line in my code that deletes the data in the first cell to the right of a found search in a specified range. I would like to increase that ClearContents from 1 cell to 3 cells and I just can’t seem to find what that code is.[/FONT]</code>
<code class="western">
</code><code class="western">[FONT=Liberation Serif, serif]Cells(i, x).Offset(0, 1).ClearContents[/FONT]</code>
<style type="text/css">pre.cjk { font-family: "WenQuanYi Micro Hei Mono", monospace; }p { margin-bottom: 0.21cm; }code.cjk { font-family: "WenQuanYi Micro Hei Mono", monospace; }a:link { }</style>

 

[CalcSux78]

Try:

Range(Cells(i, x), Cells(i, x).Offset(0, 3)).ClearContents

 

[SUSAN BAXTER]

Works perfect!! Thank-you so much. <style type="text/css">pre.cjk { font-family: "WenQuanYi Micro Hei Mono", monospace; }p { margin-bottom: 0.21cm; }a:link { }</style>

 

[Rick Rothstein]

Try:

Range(Cells(i, x), Cells(i, x).Offset(0, 3)).ClearContents

This could also be written this way...

Cells(i, x).Resize(,4).ClearContents

Note: The resize is 4 (one more than the stated 3) because the starting cell is being cleared along with the 3 cells to the right of it)