Sub MakeMap()
Dim rnArea As Range
Dim rnCell As Range

Set rnArea = Range("A1:CV73")

For Each rnCell In rnArea
     With rnCell
        If Not IsError(.Value) Then
      Select Case .Value
          Case "OCEAN"
             .Interior.ColorIndex = 5
          Case "COAST"
            .Interior.ColorIndex = 41
          Case "GRASS"
            .Interior.ColorIndex = 10
          Case "MOUNTAIN"
              .Interior.ColorIndex = 56
          Case "PLAINS"
            .Interior.ColorIndex = 43
          Case "PLAINSFOREST"
            .Interior.ColorIndex = 50
          Case "DESERT"
            .Interior.ColorIndex = 36
          Case "MOORLAND"
            .Interior.ColorIndex = 53
          Case "MARSH"
            .Interior.ColorIndex = 53
          Case "TUNDRA"
            .Interior.ColorIndex = 15
          Case Else
            .Interior.ColorIndex = 3
      End Select
       End If
   End With
Next
End Sub