VBA-实现sheet表中大写字母转小写

需求说明：

在表格中有ST01.ST02.ST03.ST04.....等sheet表，如何操作实现一键变为st01.st02.st03.st04....?
代码：

Sub low()
'
Dim i As Long
For i = 1 To 15
    Sheets(i).Select
Sheets(i).Name = LCase(Sheets(i).Name)
Next
' low Macro
'
End Sub

小写字母转大写字母：Ucase()
大写字母转小写字母：Lcase()