For loop Each cell just for odd itteration?

[GerrardSVK]

Is any possibility to make this order but with every 2 itterations only?

So for loop will go 1 step then 3 then 5 etc.

 For Each Cell In Workbooks(1).Sheets(2).Range(KopyRange).Cells

 

[Peter_SSs]

You need to change the technique a little, but here is a simple demonstration that you can try on the active sheet to see how you can just process every second cell.

Sub Test()
  Dim i As Long
  
  With Range("B1:B11")
    For i = 1 To .Rows.Count Step 2
      .Cells(i, 1).Interior.Color = vbGreen
    Next i
  End With
End Sub

 

[GerrardSVK]

You need to change the technique a little, but here is a simple demonstration that you can try on the active sheet to see how you can just process every second cell.

Sub Test()
  Dim i As Long
 
  With Range("B1:B11")
    For i = 1 To .Rows.Count Step 2
      .Cells(i, 1).Interior.Color = vbGreen
    Next i
  End With
End Sub

I do it on my own I just put simple if condition that make this step but thank you anyway.