问与答95：如何根据当前单元格中的值高亮显示相应的单元格？

Private Sub Worksheet_Change(ByVal Target As Range)
   Const WS_RANGE As String = "A:A"
   On Error GoTo ws_exit
   Application.EnableEvents = False
   If Not Intersect(Target, Me.Range(WS_RANGE))Is Nothing Then
       With Target
         If IsNumeric(.Value) Then
          Worksheets("Sheet2").Cells(.Row, "B").Resize(,.Value).Interior.ColorIndex = 38
         End If
       End With
    End If
ws_exit:
    Application.EnableEvents = True
End Sub