'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