Dave,

Many thanks indeed! Works a treat, although I didn't want the code t
execute anything should the value not be found so I took the liberty o
amending your code to:

If FoundCell Is Nothing Then
'not found
Else
FoundCell.EntireColumn.Delete
End If

to

If Not FoundCell Is Nothing Then
FoundCell.EntireColumn.Delete
End If

Many thanks again!

Best Regards,

Adria

--
Kobayash
-----------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...info&userid=87
View this thread: http://www.excelforum.com/showthread.php?threadid=47677