Dim acc As Integer
acc = ActiveCell.Column

Select Case acc
   Case 4
   acz = "D"
   Case 5
   acz = "E"
   Case 6
   acz = "F"
   Case 7
   acz = "G"
   Case 8
   acz = "H"
   Case 9
   acz = "I"
   Case 10
   acz = "J"
   Case 11
   acz = "K"
   Case Else
End Select