求教如何用CASE语句写录入自动替换

HENRYNG

请各位高手帮忙:如何把以下IF THEN 语句用CASE语句来写

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("a1") = "kh" Then Range("a1") = "客户"
  If Range("a1") = "cp" Then Range("a1") = "产品"
  If Range("a1") = "mc" Then Range("a1") = "名称"
  If Range("a1") = "gg" Then Range("a1") = "规格"
  If Range("a1") = "xh" Then Range("a1") = "型号"
  If Range("a1") = "sl" Then Range("a1") = "数量"
End Sub


若单元格Range("a1")改为Range("A1:A6")该如何写?

请指教!!!!!

51Code

For Each X In Range("R8:R1000")

51Code

For Each X In Range("R8:R1000")