程序修改之后出错，请大家帮忙看看错在哪里

gzminge

为了方便填入数据，我弄了一个输入窗口来填写，运算结果数据全部消失了。请教一下，输入窗口的错误在哪里？


原程序：
Sub test()
Dim sht As Worksheet
Dim rng As Range
For Each sht In Sheets
       For Each rng In sht.UsedRange
            If InStr("75｜01｜02｜55｜56", Left(Right(rng.Value, 4), 2)) Then
            rng.Font.ColorIndex = 3
            '
            Else
            rng = ""
            End If
Next
Next
End Sub


修改之后的程序：
Sub test2()
Dim sht As Worksheet
Dim rng As Range
TS = Application.InputBox(prompt:="请输入相隔天数", Title:="操作提示", Default:=0, Type:=1)
For Each sht In Sheets
       For Each rng In sht.UsedRange
            If InStr(TS, Left(Right(rng.Value, 4), 2)) Then
            rng.Font.ColorIndex = 3
            '
            Else
            rng = ""
            End If
Next
Next
End Sub

shiruiqiang

ts输入01的时候，变成数字1。
需要转换成文本。我在你上贴里有代码