excel vba - Object required error when performing For Each loop VBA -

excel vba - Object required error when performing For Each loop VBA -

i new vba , have encountered problem when attempting each loop. have wrapped head around quite time , couldn't find answers on forum.

i suspect it's silly error , appreciate if help. alot in advance!

sub angleandecomparison() dim rngangle range dim nrow integer dim n#, placeholder# nrow = 1 n = 0 set rngangle = intersect(columns(5), activesheet.usedrange) ' set rngangle = activesheet.columns(5) each cell in rngangle if cell.value <> "" if range("e" & nrow).value > 75 , range("e" & nrow).value < 105 placeholder = 1 if range("g" & nrow).value >= 3 , placeholder = 1 n = n + 1 cell.interior.colorindex = 36 cell.interior.colorindex = 36 placeholder = 0 end if nrow = nrow + 1 end if next activesheet.cells(5, 11).value = n activesheet.cells(5, 10).value = "elongated cells within 15°:" end sub

before working range object have set using function, should check range object not set nothing. in case below code exit if intersect returned nothing

set rngangle = intersect(columns(5), activesheet.usedrange) ' set rngangle = activesheet.columns(5) if rngangle not nil exit sub

also others have noted have missing end if

excel-vba