VBA To Close Workbook Based On Cell Value Change And Open New Workbook

[mrprofit]

possible to change this line to a range where I list all the WB names in, Range(“E1:E150”)

   For Each var In Array("Doc_01.xls", "Doc_02.xls", "Doc_03.xls", "Doc_04.xls", "Doc_05.xls")

and
Sheet1("B2") = C:\My Docs\
Sheet1("C2") = DataWB.xls

how to change the

Case "Doc_01.xls", "Doc_02.xls", "Doc_03.xls", "Doc_04.xls", "Doc_05.xls"

into something simple like, as i may have 100+ data WB,

Case "Sheets("Sheet1").Range("C2").Value": Open Doc