Function Region(city)
If Not Intersect(city, Sheet2.Range("U3:U15")) Is Nothing Then
Region = 2
End If
If Not Intersect(city, Sheet2.Range("X3:X15")) Is Nothing Then
Region = 3
End If
If Not Intersect(city, Sheet2.Range("AA3:AA15")) Is Nothing Then
Region = 4
End If
If Not Intersect(city, Sheet2.Range("AD3:AD15")) Is Nothing Then
Region = 5
End If
If Not Intersect(city, Sheet2.Range("AG3:AG15")) Is Nothing Then
Region = 6
End If
If Not Intersect(city, Sheet2.Range("AJ3:AJ15")) Is Nothing Then
Region = 7
End If
End Function