You have mixed up your ranges, this work
Code
-------------------
If Cells(1, 254) = "123" The
Columns("A:D").EntireColumn.Delet
End I
-------------------
--
Simon Lloy
Regards
Simon Lloy
'The Code Cage' (
http://www.thecodecage.com
-----------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.thecodecage.com/forumz/member.php?userid=
View this thread:
http://www.thecodecage.com/forumz/showthread.php?t=3820