Change the icon of one specific folder in Windows 8

getting "application-defined or object defined" error

i wrote the below code to check two cells in a row if both have 0 in them then it should hide that row
For Each rr In Range("I17:I28")  'rr is defined as range
        If rr = 0 Then

            If ActiveCell.Offset(0, -3).Range(rr).Value = 0 Then  ' getting error in this line
            ActiveCell.EntireRow.Select
            Selection.EntireRow.Hidden = True
            Range("B16").Select

            Else
            ActiveCell.EntireRow.Select
            Selection.EntireRow.Hidden = False
            Range("B16").Select
            End If

        End If
Next
but i am getting "application-defined or object defined" error i tried replacing range(rr) to simply rr but still it is giving same error
please help on this....Change the icon of one specific folder in Windows 8

How to change the icon of one specific folder in Windows 8? I want to customize some folders' icons.