Those codes work perfectly. Thank you, Jarek.

Regards,
Tom

"Jarek Kujawa" wrote in message
...
select your C, F, I cells (or further down) and try:

Sub cus()

For Each cell In Selection
For i = 1 To 4
If cell.Offset(1, -2) = "Group " & i Then
Range(cell.Offset(1, -2), cell.Offset(2, 0)).ClearContents
Exit For
End If
Next i
Next cell

End Sub

pls click YES if it helped

On 15 Paź, 04:36, "tom" wrote:
Hi,

A B C
D E F
G H I

are a block of cells. Cell C is the active cell (cursor position). If cell
D
contains the word "Group N" where N can be a number from 1 to 4, I want to
delete the content of cells D, E, F, G, H and I. If not, to continue on
with
the next line of code.
Any help is much appreciated.

TIA
Tom