Hai Bio,
versuche es doch mal in dieser Art:
UpDown1.BuddyControl = CellName
With UpDown1
.Min = 20
.Max = 70
.Increment = 9
.Wrap = True
.SyncBuddy = True
End With
CellName.Text = UpDown1.Value
Nur mal so als Hinweis ...
Gruss Norbert