vba小编程，答案好的另加分！

beijing
shanghai
guangzhou
wuhan
xi'an
hebei
huai'an
shandong
tai'an

excel中用vba编写，我只能实现每个地名的第一个字母大写；但同时要求xi'an hebei huai'an shandong tai'an 的后一个汉字第一个字母也要大写，怎么弄？

我的语句——
Sub change_letters2()
Dim r As Integer
Dim rng, rg As Range
Dim words As String
Dim letter() As String
On Error Resume Next
r = Cells.Find(what:="*", after:=[a1], searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Set rng = Range(Cells(1, 1), Cells(r, 1))
For Each rg In rng
ReDim letter(Len(rg.Value))
For i = 1 To Len(rg.Value)
letter(i) = Mid(rg.Value, i, 1)
If i = 1 Then
letter(i) = UCase(letter(i))
Else
letter(i) = LCase(letter(i))
End If
words = words & letter(i)
Next i
rg = words
words = ""
Next rg
End Sub

怎么改？高手们指教。

塞拉图这车如何?请详细说明!好的答案另加分! 中译英！！！！！！！！好的另加分............... 中译英！！！！！！！！好的另加分 在国企做事该采取什么样的工作态度?好答案另加分! 关于丝竹乐的问题 （如果答案好的话另加悬赏分） 手绘平面设计要求（好答案另加分） 浏览器的问题，100分，答案ok后另加分 简单问题,看谁答上 好的另加分~~~~~~ 请求翻译中文,好的另加分！！ 懂EXCEL的VBA编程的进来，一个小问题