EXCEL VBA：Do Loop

位大大好

小的第一次學vba...從書上的程式進行改寫自己想要的

但是一直找不出錯誤的原因，一直提示沒有DO，但我還是看不出來呀... 冏rz

還請各位大大幫忙找出錯誤，如果可以還請大大逐列說明 非常感謝 ^_^

Sub 代號()
C = 2

Do While Cells(C, 1) <> ""
Select Case Cells(C, 1)
Case "0015"
Cells(2, C) = "1台北"

Select Case Cells(C, 1)
Case "0048"
Cells(2, C) = "2城東"

Select Case Cells(C, 1)
Case "0059"
Cells(2, C) = "4新莊"

Select Case Cells(C, 1)
Case "0060"
Cells(2, C) = "7新竹"

Select Case Cells(C, 1)
Case "0082"
Cells(2, C) = "a高雄"

Select Case Cells(C, 1)
Case "0118"
Cells(2, C) = "3信義"

Select Case Cells(C, 1)
Case "1366"
Cells(2, C) = "8台中"

Select Case Cells(C, 1)
Case "0152"
Cells(2, C) = "9台南"

Select Case Cells(C, 1)
Case "1171"
Cells(2, C) = "5板橋"

Select Case Cells(C, 1)
Case "0185"
Cells(2, C) = "6桃園"

Select Case Cells(C, 1)
Case "0451"
Cells(2, C) = "b羅東"

Select Case Cells(C, 1)
Case "0875"
Cells(2, C) = "C忠孝"

Select Case Cells(C, 1)
Case "0680"
Cells(2, C) = "E 南台中"

Select Case Cells(C, 1)
Case ""
Cells(2, C) = "未定義"

End Select
C = C + 1


Loop
End Sub