vb makro object required 424 hatası yardım lutfen!!

[jasper26]

Sub Düğme4_Tıklat()
'
' Düğme4_Tıklat Makro
' Makro GERRARD tarafından 25.07.2011 tarihinde kaydedildi.
'

'


k = 48 + [B2].Value

r = 345 - [B3].Value

For t = 1 To [B5].Value Step 0.01

Next t

ActiveSheet.Shapes("Oval 3").Select

SelectionShapeRange.Left = k BU KISIMDA HATA VERIYOR (424)

SelectionShapeRange.Top = r

x1 = ([B2].Value + [b1].Value * Cos([C4].Value) * 10 * t)

y1 = ([B2].Value + [b1].Value * Cos([C4].Value) * t - ½ * 10 * t * t)

k = 48 + [B2].Value + x1

r = 345 - [B3].Value - y1




End Sub