VBA Hiding Columns

[DLRollings]

Based on below being columns, can anyone do me a macro to hid columns contacting saf, nps and chn. I'd need 3 separate ones that I can run as and when I need. Other columns will have various other codes, trans, triage to name a few.

Any help would be much appreciated, i'm still new to this and not really getting it!

dom	aneeta	anna	anne	ashraf	bjarne
ge	saf	nps	ge	chn	ge

<tbody>
</tbody>

 

[mas123]

You can use this macro for searching to saf and hide it's column

Sub Macro1()
    Cells.Find(What:="saf", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Hidden = True
    Range("a1").Select
End Sub

you can repeat it for other words

 

[My Aswer Is This]

Try this:

Sub Hide_Word()
Dim Word As String
[A1].Select
Word = InputBox("What Word")
   For Each cell In ActiveSheet.UsedRange
    
    Cells.Find(What:=Word, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Hidden = True
    Next
[A1].Select

End Sub

 

[Michael M]

I'd also add to this code, to allow the user to Unhide ALL columns if no word is selected
AND
I wouldn't use WORD as the string....str or Wrd would be Safer, and less confusing

Sub Hide_Word()
Dim Word As String
Word = InputBox("What Word")
If Word = "" Then Cells.Columns.Hidden = False
   For Each cell In ActiveSheet.UsedRange
    Cells.Find(What:=Word, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Hidden = True
    Next
End Sub