Sub test_namesheet() Dim i As Integer For i = 1 To Sheets(Sheets.Count) ThisWorkbook.Sheets(i).Activate ActiveSheet.Name = "sheet" & i Next i End Sub
mình làm code thây đổi tên sheet mà sao k được ạ
Son Nhat Doan help với
Sub test() For i = 1 To Worksheets.Count Sheets(i).Name = "sheet" & i Next i End Sub
Lỗi nặng ở For i = 1 to Sheets ..... I là Integer, còn Sheets là Application.Workbook.Worksheet mà