これは、列コードを非表示にしてより効率的に書くことができますか？

Question

私はVBAコードを書くことで初心者だ - あなたはより効率的に、この非表示の列コードを書く方法を私に助言することができれば、私はgeatfull次のようになります。

コードの目的がある：列F4のセルがある場合が空のの場合は、Fなどの列を非表示にします。

Private Sub Worksheet_Change(ByVal Target As Range) 

If Range("F4").Value = "" Then 
    Columns("F").EntireColumn.Hidden = True 
Else 
    Columns("F").EntireColumn.Hidden = False 
End If 

If Range("G4").Value = "" Then 
    Columns("G").EntireColumn.Hidden = True 
Else 
    Columns("G").EntireColumn.Hidden = False 
End If 

If Range("H4").Value = "" Then 
    Columns("H").EntireColumn.Hidden = True 
Else 
    Columns("H").EntireColumn.Hidden = False 
End If 

If Range("I4").Value = "" Then 
    Columns("I").EntireColumn.Hidden = True 
Else 
    Columns("I").EntireColumn.Hidden = False 
End If 

If Range("J4").Value = "" Then 
    Columns("J").EntireColumn.Hidden = True 
Else 
    Columns("J").EntireColumn.Hidden = False 
End If 

If Range("K4").Value = "" Then 
    Columns("K").EntireColumn.Hidden = True 
Else 
    Columns("K").EntireColumn.Hidden = False 
End If 

If Range("L4").Value = "" Then 
    Columns("L").EntireColumn.Hidden = True 
Else 
    Columns("L").EntireColumn.Hidden = False 
End If 

If Range("M4").Value = "" Then 
    Columns("M").EntireColumn.Hidden = True 
Else 
    Columns("M").EntireColumn.Hidden = False 
End If 

End Sub 

Answer 1

〜13列6間のループは、物事を向上することがあります：この

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim c As Long 
    For c = 6 To 13 
     Columns(c).EntireColumn.Hidden = IsEmpty(Cells(4, c).Value) 
    Next 
End Sub 

Answer 2

チェックイン： -