Ashish Batham
Member
If row = reason_count + 24 Then
Cells(row, 5).Borders(xlEdgeTop).LineStyle = xlContinuous
ElseIf row = 2 * reason_count + 23
Cells(row, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous
EndIf
If Int((row - reason_count - 24) / 5) Mod 2 = 0 Then
Cells(row, 5).Interior.Color = 12632256
EndIf
Cells(row, 5).Borders(xlEdgeTop).LineStyle = xlContinuous
ElseIf row = 2 * reason_count + 23
Cells(row, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous
EndIf
If Int((row - reason_count - 24) / 5) Mod 2 = 0 Then
Cells(row, 5).Interior.Color = 12632256
EndIf