M> Ako mozem otestovat, ci zadany sheet existuje? Aby som M> mohol vypisat chybovu hlasku, namiesto toho aby pri zle M> zadanom nazve makro padlo. Mozes volat tuto funkciu: funkcia akceptuje jeden argument (worksheet name) a vracia TRUE ak existuje v aktivnom workbooku. Private Function SheetExists(sname) As Boolean 'Returns TRUE if sheet exists in the active workbook Dim x As Object On Error Resume Next Set x = ActiveWorkbook.Sheets(sname) If Err = 0 Then SheetExists = True _ Else SheetExists = False End Function -- Zdravi, Jani mailto:JBystriansky@seznam.czReceived on Tue, 26 Apr 2005 08:40:48 +0200
This archive was generated by hypermail 2.1.8 : 26. 04. 2005, 08:40 CEST