VB (If statement)

[batchy]

Hello,

I have a document which is split into 3 blocks:

Monthly Weekly Daily


Within these blocks we have a further 3 splits:

Monthly Weekly Daily
(Inhouse) (Outsource) (Combined) (Inhouse) (Outsource) (Combined) (Inhouse) (Outsource) (Combined)

The best way to show the various views having a button for "(Inhouse) (Outsource) (Combined)" and a drop down menu for Monthly, Weekly & Daily.

Using an IF statement i have created the following code but doesnt appear to work.

Sub Inhouse()
    If Target.Address = "$DP$10" Then
        If Target.Value = "InhouseOverview" Then
            Application.ScreenUpdating = False
            Columns("J:DJ").Hidden = True
            Columns("AN").Hidden = False
            Columns("AQ").Hidden = False
            Columns("AT").Hidden = False
            Columns("AW").Hidden = False
            Columns("AX").Hidden = False
            Columns("BA").Hidden = False
            Columns("BD").Hidden = False
            Columns("BG").Hidden = False
            Columns("BJ").Hidden = False
            Columns("BM").Hidden = False
            Columns("CI").Hidden = False
            Columns("CL").Hidden = False
            Columns("CO").Hidden = False
            Columns("CR").Hidden = False
            Columns("CU").Hidden = False
            Columns("CX").Hidden = False
            Columns("DA").Hidden = False
            Columns("DE").Hidden = False
            Columns("DH").Hidden = False
            Application.ScreenUpdating = True
        End If
        If Target.Value = "InhouseMonthly" Then
            Application.ScreenUpdating = False
            Columns("J:DJ").Hidden = True
            Columns("S").Hidden = False
            Columns("V").Hidden = False
            Columns("Y").Hidden = False
            Columns("AB").Hidden = False
            Columns("AB").Hidden = False
            Columns("AE").Hidden = False
            Columns("AH").Hidden = False
            Columns("AK").Hidden = False
            Columns("AN").Hidden = False
            Columns("AQ").Hidden = False
            Columns("AT").Hidden = False
            Columns("AW").Hidden = False
            Columns("DH").Hidden = False
            Application.ScreenUpdating = True
        End If
        If Target.Value = "InhouseWeekly" Then
            Application.ScreenUpdating = False
            Columns("J:DJ").Hidden = True
            Columns("AX").Hidden = False
            Columns("BA").Hidden = False
            Columns("BD").Hidden = False
            Columns("BG").Hidden = False
            Columns("BJ").Hidden = False
            Columns("BM").Hidden = False
            Columns("DE").Hidden = False
            Application.ScreenUpdating = True
        End If
        If Target.Value = "InhouseDaily" Then
            Application.ScreenUpdating = False
            Columns("J:DJ").Hidden = True
            Columns("BN").Hidden = False
            Columns("BQ").Hidden = False
            Columns("BT").Hidden = False
            Columns("BW").Hidden = False
            Columns("BZ").Hidden = False
            Columns("CC").Hidden = False
            Columns("CF").Hidden = False
            Columns("CI").Hidden = False
            Columns("CL").Hidden = False
            Columns("CO").Hidden = False
            Columns("CR").Hidden = False
            Columns("CU").Hidden = False
            Columns("CX").Hidden = False
            Columns("DA").Hidden = False
            Columns("DD").Hidden = False
            Columns("DE").Hidden = False
            Application.ScreenUpdating = True
        End If
    End If
End Sub