Column Width

Hi

I got this macro from someone else, but realised it does the complete opposite of what i want!

Private Sub CommandButton100_Click()
Dim n As Long
For n = 2 To Range("B7").CurrentRegion.Columns.Count + 200
If InStr(Cells(7, n).Value, Range("H1").Value) >= 1 Then
Cells(7, n).ColumnWidth = 0
End If
Next n
End Sub

I want to only show the columns (so usually width of 64 pixels) and reduce the column width of everything else to 0

This code reduces the column width of the cells i want to see to 0

My value is in cell H1 and if it says "kiwi" i want it to show all columns from b7 onwards horizontally that contain kiwi, again this does the opposite.

Hopefully someone could help me out?

Cheers

Dan

Brilliant thank you both

Glad being of some help .