hiding columns using macro

morning all....

is there any macro function for hiding columns ? tried recording my macro and putting it into my existing workbook, but can't seem to get it to work..

Private Sub CommandButton1_Click()
 
 Sheets("TAB_HVT_STANDORTE_SHELF_BB").Activate
 
 Search ("ONKZ")
 
'3 columns are suppose to be hidden here

 Search ("HVT_NR")
 Search ("NE_KENNUNG")
 
 Sheets("BREITBAND").Activate
 
 
End Sub


Sub Search(ByVal strSrch As String)
     
    Dim xFind
    Dim rnge As Range
     
     
    If strSrch = "" Then Exit Sub
     
    With Sheets("TAB_HVT_STANDORTE_SHELF_BB")
        Set xFind = .UsedRange.Find(what:=strSrch, After:=Range("A1"), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False)
    End With
     
    If Not xFind Is Nothing Then
         
        With Sheets("BREITBAND")
            If .Range("B1").Value = "" Then
                Set rnge = .Range("B1")
            ElseIf .Range("C1").Value = "" Then
                Set rnge = .Range("C1")
            Else
                Set rnge = .Range("B1").End(xlToRight).Cells(1, 2)
            End If
            xFind.EntireColumn.Copy Destination:=rnge
        End With
         
    Else
        MsgBox "Suchbegriff wurde nicht gefunden !"
    End If
     
End Sub

the bolded sentence states that in between those to 'searches', i need to hide 3 columns....any solutions ?

thanks in advances

mfg
eddy