Quick Loop

Hi

Can anyone turn this macro into a loop

Needs to Blank out every 16th Cell in Col V starting V21 to V2200

Code:

---

Sub Macro50()
'
' Macro50 Macro




   
    Range("V21,V37,V53,V69,V85,V101,V117,V133,V149,V165,V181,V197,V213,V229,V245").Select

    Range("V389").Activate
    Selection.ClearContents
   
    Sheets("Race").Select
    Sheets("Race").Select
    Range("W1:Y1").Select
    Application.CutCopyMode = False
   

 
End Sub

---

Cheers and much Kudos :)

something like:

Code:

---

Sub blank16()
    Dim i As Integer
    Dim ws As Worksheet
   
    Set ws = ActiveSheet
   
    For i = 21 To 2200 Step 16
        ws.Range("v" & i).ClearContents
    Next i
End Sub

---

and you'd probably want this before the For loop:

Code:

---

Application.ScreenUpdating = False

---

Thanks vbfbryce

Legend perfect exactly as i needed

If i was an employer I'd give you a Job

Respect

All the best my man

Mike :)

Any time!