Hi Chris,

It looks like you are an optician or creating something for one.

To my opinion this might be a option:

Create a circle and place a horizontal line in the circle just touching
the edges.
Group those 2 into one shape and give it a name.
e.g.: PicCylR
Make a copy of the shape and give it a new name
e.g. PicCylL

Name 2 cells on your worksheet similar
CellCylR en CellCylL.

If you want to restrict the user to some values put Validation to these
2 cells

Create a Worksheet event on WorkSheet Change

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case Range("CellCylR").Address
Shapes("PicCylR").Rotation = Target.Value
Case Range("CellCylL").Address
Shapes("PicCylL").Rotation = Target.Value
End Select
End Sub

Hoop this helps


Executor