Sub TEST()
Dim B As Variant
B = InputBox("请输入数字", "温馨提示", 4000)
If B = "" Then End
'改为临时名字,确保临时名不会出现在新表名中即可
For i = 1 To Sheets.Count
Sheets(i).Name = "temp" & i
Next i
'正式改名
For i = 1 To Sheets.Count
Sheets(i).Name = Application.Text(B + i, "\ 0 .00")
Next i
End Sub