Sub macro1() ' macro name, performs no action
For i = 2 To 100 Step 4 ' starts with i as value of 2
Range("A" & i) = ZipConvert(Range("A" & i)) ' copies value of ZipConvert!A2 to A2 on the visible sheet
Next i ' repeats the above process, adding the step value to i, so A2 will become A6, then A10, etc. will stop when i goes above the limit value of 100
End Sub ' confirms end of macro