Visual Basic Excel Macro HALP

[Mur]

Ello guys. So, is anyone here Excel savvy?

Trying to make a macro that finds all the columns with "point" in their header and hide them.

Sub Hideallpoints2()
Dim Rng As Range
For Each Rng In Sheets("Data").Range("a1:gg1")
If Rng.EntireColumn.Hidden = False Then
If Rng.Value = "point" Then
Sheets("data").Columns(Rng.Column).EntireColumn.Hidden = True
End If
End If
Next
End Sub

^- This does nothing.