Private Sub Workbook_Open()
     Dim db As database
     Dim Rs As Recordset
     Dim sh As Sheets
     Dim Dokument As Document
     Dim Vork As Worksheet
     Dim Putanja As String
     Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip     As Integer
     Dim Podatak, SifraImePrezime() As String, SifraArt As String, SQL As String
     Putanja = Me.Path
     SQL = "SELECT ImePrezime FROM AUposleni " _
           & "GROUP BY AUposleni.ImePrezime " _
           & "ORDER BY AUposleni.imePrezime"
     Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
     Set Rs = db.OpenRecordset(SQL)
    Rs.MoveFirst
    Do While Not Rs.EOF()
    Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
    Vork.Name = Rs!imeprezime
    Rs.MoveNext
    Loop