Užitočné (1) | marjankaj |
Public Sub SheetsNamesToCell() Dim xSh As Worksheet, i As Byte Sheets("ListA").Range("B:B").Clear For i = 1 To ActiveWorkbook.Sheets.Count Set xSh = ActiveWorkbook.Sheets(i) If xSh.Name <> Sheets(1).Range("B" & i) Then Sheets("ListA").Range("B" & i) = xSh.Name Next i End Sub
Vkladanie listov do buniek - excel