Macro to clear cells

[JEB85]

Hi,

I'm looking for a macro that will clear the cell contents in columns B&C if the cell value in column A is blank.

So in the example below, i would like B2:C2 and B5:C5 clearing as A2 and A5 are both blank.

Is there a simple macro to do this please?

		Column
		A	B	C
		Name	Test1	Test2
Row	1	A1	1	1
2		1	1
3	A3	1	1
4	A4	1	1
5		2	2
6	A6
7	A7	3	3
8	A8

<tbody>
</tbody>

Aplogies, the fomratting of the table above is not aligned!

 

[Fluff]

How about

Sub ClrCells()

   With Columns(1).SpecialCells(xlBlanks)
      .Offset(, 1).ClearContents
      .Offset(, 2).ClearContents
   End With

End Sub

 

[JEB85]

Works great, thank you! If i need to the range to be specific, say rows 10:100, how would i tweak the code?

 

[Fluff]

Like this

Sub ClrCells()

   With [COLOR=#0000ff]Range("A10:A100")[/COLOR].SpecialCells(xlBlanks)
      .Offset(, 1).ClearContents
      .Offset(, 2).ClearContents
   End With

End Sub

 

[JEB85]

Thanks!

 

[Fluff]

You're welcome