a way to make this more compact ??
aWS.Range("B2").Value = (aWS.Range("H7") - aWS.Range("A2").Value) * 100
aWS.Range("B4").Value = (aWS.Range("H7") - aWS.Range("A4").Value) * 100
aWS.Range("B6").Value = (aWS.Range("H7") - aWS.Range("A6").Value) * 100
aWS.Range("B8").Value = (aWS.Range("H7") - aWS.Range("A8").Value) * 100
aWS.Range("B10").Value = (aWS.Range("H7") - aWS.Range("A10").Value) * 100
aWS.Range("B12").Value = (aWS.Range("H7") - aWS.Range("A12").Value) * 100
aWS.Range("B14").Value = (aWS.Range("H7") - aWS.Range("A14").Value) * 100
etc etc....
|