vba - clear contents of cell if adjacent cell contains part of text

[hrayani]

Hello Friends,

I need a vba code that would clear contents of cell in a range B1:B4 if adjacent cell Column A contains text Total

Pls see below table

Book2
	A	B
1	1234	01-Jun
2	2345	01-Jun
3	3456	01-Jun
4	Total Set(s)	01-Jun
Sheet1

any help would be appreciated

regards,

humayun

 

[hrayani]

Ok did it myself with a bit of experiment

 If Not LCase(Cl.Value) Like "*total*" Then

Thanks once again