Private Sub Workbook_NewSheet(ByVal Sh As Object) Range("A1").Value = "Novy list - " & ActiveSheet.Name Range("A1").Font.Bold = True Range("A1").Font.Color = -16776961 'cervena Range("A1").Font.Size = 14 End Sub
Užitočné (1) | kubo131 |
Ako zjednoduším prácu s hárkami v Exceli?