vbaProject

Private Sub vbaTxt_Initialize

ActiveCells.Select = Value
ActiveCells.Select = vbaUserForm.Value
Daw.Select = (Choose) = UserForm
else
Daw.Select = (Choose) = vbaUserForm
End Daw
ActiveCells.VbaUserForm.Value
Mod.ActiveCells = 0
Mod.ActiveCells = 1
Mod.ActiveCells = 2
Mod.ActiveCells = 3
Mod.ActiveCells = 4
Mod.ActiveCells = 5
Mod.ActiveCells = 6
Mod.ActiveCells = 7
Mod.ActiveCells = 8
Mod.ActiveCells = 9
Mod.ActiveCells = 10
Mod.ActiveCells = 11
Mod.ActiveCells = 12
Mod.ActiveCells = 13
Mod.ActiveCells = 14
Mod.ActiveCells = 15
Mod.ActiveCells = 16
Mod.ActiveCells = 17
Mod.ActiveCells = 18
Mod.ActiveCells = 19
Mod.ActiveCells = 20
Mod.ActiveCells = 21
Mod.ActiveCells = 22
Mod.ActiveCells = 23
Mod.ActiveCells = 24
Mod.ActiveCells = 25
Mod.ActiveCells = 26
Mod.ActiveCells = 28
Mod.ActiveCells = 29
Mod.ActiveCells = 30

Circut.Round = LEN
Circut.Straight = LEN
Cicrut.Use = RANGE

End Sub