One error resume next
Set Vork = Sheets.Add
Vork.Name = Rs!imeprezime
if err.number = brojgresjke koju ti javlja
Set Vork = Me.Worksheets(Rs!imeprezime)
err.clear
on error goto 0
endif