با سلام من مبتدي در VBA )VB در اكسل )هستم در خط سوم برنامه زير خطا ميگيره كه متوجه نميشم مشكل كجاست لطفا منو راهنمايي كنيد كه مشكل كجاست.

Dim str As String
str = InputBox("please enter your amount :")
Worksheets("sheet2").Range("A1").Value = str
End Sub