Hiding/Unhiding Columns referencing a cell with a formula

Hi all,


I have columns in other sheets to hide based on the the value of a cell in another worksheet.I got two drop down list in 1st sheet, each hides different column in sheet2 and sheet3. somehow i have ended with the code but It is coming up with a Compile Error: Ambiguous name detected: Worksheet_Change

code is

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "F28" Then
If Target.Value = 1 Then
Sheets("Balance Sheet").Range("l:m").Columns.Hidden = False
Sheets("Balance Sheet").Range("d:k").Columns.Hidden = True
Sheets("P&L").Range("l:m").Columns.Hidden = False
Sheets("P&L").Range("d:k").Columns.Hidden = True
ElseIf Target.Value = 2 Then
Sheets("Balance Sheet").Range("j:m").Columns.Hidden = False
Sheets("Balance Sheet").Range("d:i").Columns.Hidden = True
Sheets("P&L").Range("j:m").Columns.Hidden = False
Sheets("P&L").Range("d:i").Columns.Hidden = True
ElseIf Target.Value = 3 Then
Sheets("Balance Sheet").Range("h:m").Columns.Hidden = False
Sheets("Balance Sheet").Range("d:g").Columns.Hidden = True
Sheets("P&L").Range("h:m").Columns.Hidden = False
Sheets("P&L").Range("d:g").Columns.Hidden = True
ElseIf Target.Value = 4 Then
Sheets("Balance Sheet").Range("f:m").Columns.Hidden = False
Sheets("Balance Sheet").Range("d:e").Columns.Hidden = True
Sheets("P&L").Range("f:m").Columns.Hidden = False
Sheets("P&L").Range("d:e").Columns.Hidden = True
ElseIf Target.Value = 5 Then
Sheets("Balance Sheet").Range("d:m").Columns.Hidden = False
Sheets("P&L").Range("d:m").Columns.Hidden = False
ElseIf Target.Value = 0 Then
Sheets("Balance Sheet").Range("d:m").Columns.Hidden = True
Sheets("P&L").Range("d:m").Columns.Hidden = True


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "R1" Then
If Target.Value = 1 Then
Sheets("Balance Sheet").Range("m:n").Columns.Hidden = False
Sheets("Balance Sheet").Range("o:v").Columns.Hidden = True
Sheets("P&L").Range("m:n").Columns.Hidden = False
Sheets("P&L").Range("o:v").Columns.Hidden = True
ElseIf Target.Value = 2 Then
Sheets("Balance Sheet").Range("m:p").Columns.Hidden = False
Sheets("Balance Sheet").Range("q:v").Columns.Hidden = True
Sheets("P&L").Range("m:p").Columns.Hidden = False
Sheets("P&L").Range("q:v").Columns.Hidden = True
ElseIf Target.Value = 3 Then
Sheets("Balance Sheet").Range("m:r").Columns.Hidden = False
Sheets("Balance Sheet").Range("s:v").Columns.Hidden = True
Sheets("P&L").Range("m:r").Columns.Hidden = False
Sheets("P&L").Range("s:v").Columns.Hidden = True
ElseIf Target.Value = 4 Then
Sheets("Balance Sheet").Range("m:t").Columns.Hidden = False
Sheets("Balance Sheet").Range("u:v").Columns.Hidden = True
Sheets("P&L").Range("m:t").Columns.Hidden = False
Sheets("P&L").Range("u:v").Columns.Hidden = True
ElseIf Target.Value = 5 Then
Sheets("Balance Sheet").Range("n:v").Columns.Hidden = False
Sheets("P&L").Range("n:v").Columns.Hidden = False
ElseIf Target.Value = 0 Then
Sheets("Balance Sheet").Range("n:v").Columns.Hidden = True
Sheets("P&L").Range("n:v").Columns.Hidden = True


End If
End If
End Sub

Any help would be greatly appreciated!!!

see that you have duplicate line in the middle of your code ... so you starts two times the same SUB (it is impossible) and you have only one END SUB

Private Sub Worksheet_Change(ByVal Target As Range)'<<<<--------see your code regarding that line, start and in middle of code