<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Sub sbDelete_Rows_Based_On_Cell_Color()
Dim Rng As Range
Dim ws As Worksheet
Dim ZadnjaKolona As Long
Dim ZadnjiRed As Long
Dim Celija As Range
Dim I As Integer, N As Integer

'***********************************************
'avkina stara procedura samo malo prepravio
'**********************************************
Set ws = Application.ActiveSheet
Set Celija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
                                    LookAt:=xlPart, SearchOrder:=xlByColumns, _
                                    SearchDirection:=xlPrevious, MatchCase:=False)
 ZadnjaKolona = Celija.Column
 Set Celija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
                                    LookAt:=xlPart, SearchOrder:=xlByRows, _
                                    SearchDirection:=xlPrevious, MatchCase:=False)
 ZadnjiRed = Celija.Row
Dim a
For I = 1 To ZadnjiRed