Seleccionar celda de otra hoja en macro

Estoy haciendo una macro para rellenar el fondo de las celdas en la hoja4, pero quiero que según un valor seleccionado en la hoja1 mediante una lista, el color de fondo sea uno u otro (para la misma hoja ya lo he conseguido), p.e. En mi caso el valor quiero que lo extraiga de la ceda B16 de la Hoja1 (DATOS PROYECTO)
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Colors(40) = RGB(255, 189, 91)
ActiveWorkbook.Colors(41) = RGB(143, 226, 225)
ActiveWorkbook.Colors(42) = RGB(255, 255, 71)
If Target.Address = "$G$20" Then
Select Case Target.Value
Case Is = "VALENCIA"
Range("B1:M16").Interior.ColorIndex = 41
Case Is = "ALICANTE"
Range("B1:M16").Interior.ColorIndex = 42
Case Is = "RESTO DEL MUNDO"
Range("B1:M16").Interior.ColorIndex = 40
'otros case
End Select
End If
End Sub
Un saludo y gracias,
Oscar Lerma.