Code:
Sub AddSheet()
Sheets.Add.Name = "Test" ' dodaje novi radni list sa imenom Test
Sheets("Test").Range("A1").Value = "Pozdrav iz novog lista" ' Upisuje na novi radni list
End Sub
Još jedna napomena da ako prilikom dodavanja radnog lista rezultat proslediš objekatu
Dim shNew As Worksheet
Set shNew = Sheets.Add
Onda možeš koristiti referencu na objekat shNew i nije ti bitno ni koja je pozicija, niti kako se zove
shNew.Range("A1").Value = "Pozdrav iz novog lista"
[Ovu poruku je menjao Jpeca dana 06.05.2010. u 21:58 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?