Sarakkeiden piilottaminen koodilla

taas pelaa foorumi, eikä olla bannattuna )-;

haullahan näitä samoja kyssäreitä alkaa olla jo piisalle asti (mielestäni paras RANGE-funktio)...
ei tartte yleensä kuin solualueen ja tarpeen muutoksen- eli pikku fiksauksen.
Liian VAIKEAAKO???

moduuliin...

Function EtsiJaSiirrä(Hakuehto As Variant) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Taul1").Activate
With Range("C3:X3")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function

Sub Testi2()
On Error Resume Next
Dim Löydetty As Range
Dim solu As Range
Set Löydetty = EtsiJaSiirrä("")
Löydetty.EntireColumn.Delete
Set Löydetty = EtsiJaSiirrä(0)
Löydetty.EntireColumn.Delete
End Sub