select every nth column in a selected range

[heathball]

The code below selects every 2nd ROW in the selected range.

I cannot work out how to transform this code, so that it works for COLUMNS, also based on the selected range.

Any ideas?

Sub selecteveryotherrow()
Dim MyRange As Range
Dim RowSelect As Range
Dim i As Integer
Set MyRange = Selection
Set RowSelect = MyRange.Rows(1)
For i = 3 To MyRange.Rows.Count Step 2
Set RowSelect = Union(RowSelect, MyRange.Rows(i))
Next i
Application.Goto RowSelect
End Sub

 

[heathball]

i just solved the question above, so i will move to the final point.
How do i change this code to make it every "nth" row.
Like it could be every 5th row, or every 9th row, etc.

Thanks in advance.

 

[heathball]

i have just found out the answer, so this post is closed, thanks.

 

[jolivanes]

Would you be willing to show the solution for people that come here that have the same or similar problem?

 

[Fluff]

Good to hear you got the solution.
If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.