それ以外の場合はエラーなし複数のイベントでエラーが発生する

Question

私はここの家を回り、木の木が見えません。私はエラーなしでこのElseを取得し続けますが、それを修正することはできません。私がここで見つけた答えは私のために働くことができません（私は何かが分かりませんので確信しています）。正しい方向に私を向けるどんな助けも大いに感謝されます。 追加シートを表示/非表示するコードの最初のビットは単独で動作しますが、別のシートを追加してLoBに応じて特定のセルのフォント色を変更すると、事前 で おかげで以下のコード：

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = Me.Range("LoB").Address Then 
If Target.Value = "AVIATION" Then 
     Sheets("Aviation Debit Summary").Visible = True 
    Else 
     Sheets("Aviation Debit Summary").Visible = False 
    Else 
If Target.Address = Me.Range("LoB").Address Then 
If Target.Value = "MARINE" Then 
     Range("C54:E55").Select 
    With Selection.Font 
     .ThemeColor = xlThemeColorDark1 
     .TintAndShade = 0 
    End If 
    End If 
End If 

End Sub 

Answer 1

あなたはSheets("Aviation Debit Summary").Visible = False 後end ifを必要とし、end with

.TintAndShade = 0後、この色の変化のための同じを完了することができ、この

Private Sub Worksheet_Change(ByVal Target As Range) 

If Range("LoB") = "AVIATION" Then 
    Sheets("Aviation Debit Summary").Visible = True 
Else 
    Sheets("Aviation Debit Summary").Visible = False 
End If 

If Range("LoB") = "MARINE" Then 
    With Range("C54:E55").Font 
     .ThemeColor = xlThemeColorDark1 
     .TintAndShade = 0 
    End With 
Else 
    With Range("C54:E55").Font 
     .ColorIndex = xlAutomatic 
     .TintAndShade = 0 
    End With 
End If 

End Sub 

Answer 2

を試してみてくださいAlt + ODD（私が正しく覚えていれば！）を望む範囲で条件付き書式を使うと、コードを書く必要がなくなりますその部分。