Skip to content

Instantly share code, notes, and snippets.

@DataSolveProblems
Created June 4, 2019 07:58
Show Gist options
  • Save DataSolveProblems/d7a17a17d81905223267ba67de156a12 to your computer and use it in GitHub Desktop.
Save DataSolveProblems/d7a17a17d81905223267ba67de156a12 to your computer and use it in GitHub Desktop.
Sub Align_Buttons()
Dim obj As OptionButton
Dim x As Long, y As Long
x = 10
y = 10
For Each obj In ActiveSheet.OptionButtons
obj.Top = x
obj.Left = y
y = y + 125
Next obj
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment