Public Function split(cVal As String)
On Error GoTo ErrHandle
solution = ""
vstart = CInt(Mid(cVal, 2, 1))
vend = CInt(Right(cVal, 1))
sletter = Left(cVal, 1)
For i = vstart To vend
solution = solution & sletter & i
If i <> vend Then
solution = solution & ","
End If
Next i
split = solution
Exit Function
ErrHandle:
split = "! Error"
End Function