[COLOR=#ff0000] If Not Intersect(Target, Range("No._Investments")) Is Nothing Then[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000] If Target.Cells.CountLarge > 1 Then Exit Sub[/COLOR]
[COLOR=#ff0000] Select Case Target.Value[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000] Case "Please Select"[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 0[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 2[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = False[/COLOR]
[COLOR=#ff0000] Range("50:136,142:149,189:292").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 4[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = False[/COLOR]
[COLOR=#ff0000] Range("72:136,144:149,215:292").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 6[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = False[/COLOR]
[COLOR=#ff0000] Range("94:136,146:149,241:292").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 8[/COLOR]
[COLOR=#ff0000] Range("26:136,139:149,163:292").EntireRow.Hidden = False[/COLOR]
[COLOR=#ff0000] Range("116:136,148:149,267:292,").EntireRow.Hidden = True[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] Case 10[/COLOR]
[COLOR=#ff0000] Range("26:136,163:292,139:149").EntireRow.Hidden = False[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#ff0000] End Select[/COLOR]
[COLOR=#ff0000] End If[/COLOR]
[COLOR=#ff0000] [/COLOR]
[COLOR=#0000ff]Dim i As Range[/COLOR]
[COLOR=#0000ff] Dim R As Range[/COLOR]
[COLOR=#0000ff] Dim InvSel As Integer[/COLOR]
[COLOR=#0000ff] Dim PartSel As Integer[/COLOR]
[COLOR=#0000ff] Dim InvestRng As Range[/COLOR]
[COLOR=#0000ff] Dim PartnerRng As Range[/COLOR]
[COLOR=#0000ff] [/COLOR]
[COLOR=#0000ff] Set InvestRng = Range("No._Investments")[/COLOR]
[COLOR=#0000ff] Set PartnerRng = Range("No._Partners")[/COLOR]
[COLOR=#0000ff] [/COLOR]
[COLOR=#0000ff] Set i = Intersect(Target, InvestRng)[/COLOR]
[COLOR=#0000ff] If Not i Is Nothing Then[/COLOR]
[COLOR=#0000ff] InvSel = InvestRng.Value[/COLOR]
[COLOR=#0000ff] PartSel = PartnerRng.Value[/COLOR]
[COLOR=#0000ff] Select Case InvSel[/COLOR]
[COLOR=#0000ff] Case 2[/COLOR]
[COLOR=#0000ff] If PartSel = "Please Select" Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("165:173"), Range("178:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 2 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("166:173"), Range("179:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 3 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("167:173"), Range("180:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 4 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("168:173"), Range("181:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 5 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("169:173"), Range("182:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 6 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("170:173"), Range("183:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 7 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("171:173"), Range("184:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 8 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("172:173"), Range("185:186"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 9 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("173"), Range("186"))[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] [/COLOR]
[COLOR=#0000ff] Case 4[/COLOR]
[COLOR=#0000ff] If PartSel = "Please Select" Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 2 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 3 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 4 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 5 Then[/COLOR]
[COLOR=#0000ff] [/COLOR]
[COLOR=#0000ff] Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 6 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 7 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 8 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 9 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"))[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] Case 6[/COLOR]
[COLOR=#0000ff] If PartSel = "Please Select" Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 2 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 3 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("232:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 4 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("233:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 5 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("234:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 6 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("235:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 7 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("236:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 8 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("237:238"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 9 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"))[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] Case 8[/COLOR]
[COLOR=#0000ff] If PartSel = "Please Select" Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"), Range("243:251"), Range("256:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 2 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"), Range("244:251"), Range("257:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 3 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("232:238"), Range("245:251"), Range("258:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 4 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("233:238"), Range("246:251"), Range("259:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 5 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("234:238"), Range("247:251"), Range("260:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 6 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("235:238"), Range("248:251"), Range("261:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 7 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("236:238"), Range("249:251"), Range("262:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 8 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("237:238"), Range("250:251"), Range("263:264"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 9 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"), Range("251"), Range("264"))[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] Case 10[/COLOR]
[COLOR=#0000ff] If PartSel = "Please Select" Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("165:173"), Range("178:186"), Range("191:199"), Range("204:212"), Range("217:225"), Range("230:238"), Range("243:251"), Range("256:264"), Range("269:277"), Range("282:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 2 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("166:173"), Range("179:186"), Range("192:199"), Range("205:212"), Range("218:225"), Range("231:238"), Range("244:251"), Range("257:264"), Range("270:277"), Range("283:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 3 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("167:173"), Range("180:186"), Range("193:199"), Range("206:212"), Range("219:225"), Range("231:238"), Range("245:251"), Range("258:264"), Range("271:277"), Range("284:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 4 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("168:173"), Range("181:186"), Range("194:199"), Range("207:212"), Range("220:225"), Range("231:238"), Range("246:251"), Range("259:264"), Range("272:277"), Range("285:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 5 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("169:173"), Range("182:186"), Range("195:199"), Range("208:212"), Range("221:225"), Range("231:238"), Range("247:251"), Range("260:264"), Range("273:277"), Range("286:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 6 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("170:173"), Range("183:186"), Range("196:199"), Range("209:212"), Range("222:225"), Range("231:238"), Range("248:251"), Range("261:264"), Range("274:277"), Range("287:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 7 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("171:173"), Range("184:186"), Range("197:199"), Range("210:212"), Range("223:225"), Range("231:238"), Range("249:251"), Range("262:264"), Range("275:277"), Range("288:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 8 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("172:173"), Range("185:186"), Range("198:199"), Range("211:212"), Range("224:225"), Range("231:238"), Range("250:251"), Range("263:264"), Range("276:277"), Range("289:290"))[/COLOR]
[COLOR=#0000ff] ElseIf PartSel = 9 Then[/COLOR]
[COLOR=#0000ff] Set R = Union(Range("173"), Range("186"), Range("199"), Range("212"), Range("225"), Range("238"), Range("251"), Range("264"), Range("277"), Range("290"))[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] End Select[/COLOR]
[COLOR=#0000ff] [/COLOR]
[COLOR=#0000ff] If Not R Is Nothing Then R.EntireRow.Hidden = True[/COLOR]
[COLOR=#0000ff] End If[/COLOR]
[COLOR=#0000ff] [/COLOR]
If [h7] = "YES" Then
Sheets("K1a").Visible = True
Else
Sheets("K1a").Visible = False
End If
End Sub