スキルアップ・問題解決なら、モーグにおまかせ！

サンプルでは、「☆」が入力されているセルのある列を非表示にしています。
準備として標準モジュールに次のマクロを作成してください。

Sub Sample()
    Dim myRange As Range

    With ActiveSheet.UsedRange                     （1）

        Set myRange = .Find("☆")                  （2）

        If Not myRange Is Nothing Then

            myRange.EntireColumn.Hidden = True     （3）

        End If

    End With

End Sub

UsedRangeプロパティは、指定されたワークシートで使われているセル範囲を取得することができます。
UsedRangeプロパティは、途中に空白のあるデータベースであっても、使用されている最後のセルまでの範囲を返します。
Findメソッドは、指定されたセル範囲の中で特定の情報を検索し情報が見つかった最初のセルを返します。検索の条件にあてはまるセルが見つからなかった場合は、Nothingを返します。
EntireColumnプロパティは、指定されたセル範囲を含む1列または複数の列全体を返します。Hiddenプロパティは、Trueの場合、行または列が非表示になります。