I am using a Select Case statement, and instead of having many Case
statements to cover ALL cell senarios, how can i use a line to 'DIM" an
array of cells?

Rather than something like:

Case Is = Sheet4.range("A1")
' code 1

Case Is = Sheet4.range("C3")
' code 2
Case Is = Sheet4.range("H10")
' code 3 etc............

How can i use some thing like:
Dim sh as Sheet4
Dim rng as Range
Set rng = sh.Cells("A1,C3,H10,...........")

Case Select Sheet1.range("D2").value
Case sh.rng
' code to work for ALL rng senario's....
end Select


How can i Syntax this?