Worksheet("MySheet").Range(Columns(col), Columns(26)).Hidden = True

where col = rFoundCell.column
--
steveB

Remove "AYN" from email to respond
"davegb" wrote in message
oups.com...
How do you tell XL to hide all columns in the active worksheet from a
cell where you found text, rFoundCell (declared as a range) to column
"Z"?