Runtime Error '1004' - Specified value is out of range.

[amolbehl]

I use VB6.0 and when I execute the code I have given below, I get runtime Error 1004 - Specified value is out of range.

Set oXL = CreateObject("Excel.Application")
    oXL.Visible = True
    Set oWB = oXL.Workbooks.Add
    oWB.Windows.Application.Visible = true
    Set oSheet = oWB.ActiveSheet
    oSheet.Name = "TEST"
    oSheet.Visible = xlSheetVisible
 
    Dim left As Single
    Dim top As Single
    Dim wide As Single
    Dim height As Single
 
    left = 100
    top = 100
    wide = 100
    height = 100
 
    oSheet.Shapes.AddShape msoShapeRectangle, left, top, wide, height
 

Can anyone help me to solve this error.

What are the appropriate values for left,top and wide and height?

[debasisdas]

please run in debug mode and check whick line is creating the errror.

[Killer42]

amolbehl, I recommend you avoid using the names top, left or height for variables. These are the names of commonly used properties of various controls, and may cause confusion.

(Probably not related to this specific problem, though.)