*** Worksheet_Change Error - Combining code in the same worksheet ! ***

[Zwen]

Hi, Am trying to combine two Worksheet_Change commands in the same worksheet but keep getting a Worksheet_Change error message. The codes are below and they are each running off a separate combo boxes located on the same work sheet performing separate functions on two alternative worksheets. I'm aware that they can be combined but so far have not been able to figure out how to do this correctly. Any help would be appreciated. Tx

1#

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$I$24" Then
Sheets("Inputs").Scenarios(Target.Value).Show

End If

End Sub



2#

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$I$29" Then
Sheets("DCF_Analysis").Scenarios(Target.Value).Show

End If

End Sub

 

[Tom Urtis]

The syntax I posted is correct so I suspect the error lies in whatever these lines are meant to do:

Sheets("Inputs").Scenarios(Target.Value).Show

and

Sheets("DCF_Analysis").Scenarios(Target.Value).Show



I cannot tell much beyond that because I can't see your workbook, but maybe the sheet names are wrong or the scenario is wrong or the target value is misleading to VBA when you think it means one thing and VBA thinks it means another. Some component of those objects in the code lines are not correct, or not being represented to VBA correctly.

 

[Zwen]

SHG - fiddled around with the syntax a bit and the original code that you gave me eventually worked. Many thanks.

Tom - Many thanks for the assistance. Rechecked the syntax and after rejigging I eventually got to where I needed to be. Thanks once again.