Greater Or Equal Operator ...

[MacroKing 0]

Here is the code ... sometimes it works fine, but sometimes it just keels over ...

dim $StoryNum = 0, $end_story = 0

$StoryNum = InputBox("No. of Stories", "Enter the bottom story num on the screen", $StoryNum)

$end_story = InputBox("No. of Stories", "Enter the last story to be done", $end_story)

;check to see that things are working properly. if no msgboxes, then no.

if $StoryNum > $end_story then

MsgBox ( 0, "Story number", "Story number is "&$StoryNum )

MsgBox ( 0, "last one", "Last story is "&$end_story)

endif

While $StoryNum >= $end_story

Send($StoryNum&"{enter}")

Sleep(250)

Send("2{enter}")

Sleep(250)

Send("{right 2}")

Sleep(250)

Send("1{enter}")

Sleep(250)

Send("{right 2}")

Sleep(250)

Send("51{enter}")

Sleep(250)

Send("1{enter}")

Sleep(10000)

Sleep(10000)

Sleep(10000)

Send("{end 3}")

$StoryNum = $StoryNum - 1

wend

[MacroKing 0]

DOH! I thought it would be something like that, but couldn't find a reference in the help section on datatypes. perhaps we should add one ... and here is one more wrinkle. It works -- as currently written without forcing the datatype -- IF you use the mouse to click the `OK' button, instead of using the <enter> key ... cheers et thanks.