Quick Loop

[keen2xl]

Hi

Can anyone turn this macro into a loop

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

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

[vbfbryce]

something like:

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:

Application.ScreenUpdating = False

[keen2xl]

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

[vbfbryce]

Any time!