'Primer 25a: Poziv formulara iz Primera 25 Option Explicit Sub testForme25() If Application.Documents.Count = 0 Then MsgBox "Niste otvorili nijedan dokument" Else frmEtikete.Show vbModeless End If End Sub