Delete contents of an array of cells in a row

[Heatherlynn]

I have a need to delete several cell values in a row that is determined by the active cell such as:

row1 = ActiveCell.Row

the columns are an array like (3,4,5,10,12,25)

what is the easiest way to do this? Thanks for the help in advance.

 

[AlphaFrog]

<font face=Courier New>cols = Array(3, 4, 5, 10, 12, 25)<br><SPAN style="color:#00007F">For</SPAN> c = <SPAN style="color:#00007F">LBound</SPAN>(cols) <SPAN style="color:#00007F">To</SPAN> <SPAN style="color:#00007F">UBound</SPAN>(cols)<br>    Cells(ActiveCell.Row, cols(c)).ClearContents<br><SPAN style="color:#00007F">Next</SPAN> c</FONT>

 

[Heatherlynn]

Absolutely brilliant. Thank you.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[AlphaFrog]

You're welcome. Thanks for the feedback.