Array formaterring

Hej

Jeg har følgende kode der virker fint:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("C18").Value
    Case Is < 0
        Range("B19").Value = "For dyrt"
    Case Else
        Range("B19").Value = "Acceptabelt"
End Select
End Sub

Hvis jeg gerne vil have det til at gælde for C18 til N18 (altså et array) hvad gør jeg så?