マクロ　指定した列に空白セルがあれば行を非表示にする

この画面ショットのようにB列に空白セルがある場合　その行を非表示にするコードのご紹介

Sub Hidden()

Columns("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Hidden = True

End Sub