Zoeken naar een woord in een kolom binnen vba

[Robert Smidt]

Beste Helpmij'ers,

Graag zou ik een antwoord willen hebben op het volgende probleem.

Het is de bedoeling dat kolom F wordt verborgen wanneer in kolom C het woord "Gebouwen" niet voorkomt.

In al mijn eenvoud dacht ik dat de volgende code zijn werk zou doen, maar helaas

If Range("C7:C100") = "Gebouwen" Then
   Columns("F:F").Select
   Selection.EntireColumn.Hidden = True
   Range("A7").Select
End If

Alvast heel erg bedankt.

M.vr.gr.
Robert

 

[VenA]

Zoiets?

Sub VenA()
Dim f As Range
  Set f = Range("C7:C100").Find("Gebouwen")
  Columns(6).Hidden = f Is Nothing
End Sub

 

[Robert Smidt]

Werkt perfect, heel erg bedankt....