All pastes #113533 Raw Edit

ZoFreX

public text v1 · immutable
·published 2006-08-03 17:14 UTC
rendered paste body
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