Find Average of different columns and colour code it

Hi All,

I have the following code to go through various values in a column and colour code them.
However I am facing two issues here:
1. I need to generalize the code such that it runs through column G till column S in different worksheets
2. Few columns between G and S do not have any data and the code is getting stuck at the line below:
myResult = WorksheetFunction.Average(Range("G:G"))

Please Login or Register  to view this content.

Thanks in advance for your help!