Function ulemkataloog()
  Dim kataloog, nr
  Const failieraldaja = "\"
  kataloog = ActiveWorkbook.Path  'traamatu failitee
  nr = Len(kataloog)
  For nr = Len(kataloog) To 1 Step -1
   If Mid(kataloog, nr, 1) = failieraldaja Then Exit For
   'otsitakse failieraldaja asukoht
  Next nr
  MsgBox kataloog & " " & nr    ' kontrolliks kataloog ning nr asukoht selles
  kataloog = Left(kataloog, nr)   ' vaja ainult failiteed
  jooksev_kataloog = kataloog
End Function
