サンプルでは、「☆」が入力されているセルのある列を非表示にしています。

　準備として標準モジュールに次のマクロを作成してください。

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

(1)UsedRangeプロパティは、指定されたワークシートで使われているセル範囲
　 を取得することができます。
　 UsedRangeプロパティは、途中に空白のあるデータベースであっても、
　 使用されている最後のセルまでの範囲を返します。

(2)Findメソッドは、指定されたセル範囲の中で特定の情報を検索し、
　 情報が見つかった最初のセルを返します。検索の条件にあてはまるセルが
　 見つからなかった場合は、Nothingを返します。

(3)EntireColumnプロパティは、指定されたセル範囲を含む1列または複数の列全体
　 を返します。

・Hiddenプロパティは、Trueの場合、行または列が非表示になります。