VBA "Block If without End If" Help

[BenGee]

Hopefully a straight forward solution but I can't work out where I'm going wrong;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheet1.Cells(15, 2) = "" Then
If Sheets("Sheet1").Range("A1").Value = "" Then
    Sheets("TEST").Visible = False
    Exit Sub
If Sheets("Sheet1").Range("A1").Value = "TEST" Then
    Sheets("TEST").Visible = True
End If
End Sub

Any ideas?

 

[BenGee]

Typical.. Just as I post I spot the problem.

 

[BenGee]

Correct Code;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Sheets("Sheet1").Range("A1").Value = "" Then
        Sheets("TEST").Visible = False
    End If
    If Sheets("Sheet1").Range("A1").Value = "TEST" Then
        Sheets("TEST").Visible = True
    End If
End Sub