Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Code error
Does anyone know whats wrong with the code below?
I get an error in the third line where it starts with: Set inputrange=..... Says Application defined or Object defined error Private Sub SelectArguments_Click() EngIndex = EngineSelect.List(EngineSelect.ListIndex, -1) Set inputrange = Sheets("Output").Range("Eng_Range") Set Inrng = Range(inputrange(1, EngIndex + 1), inputrange(inputrange.Rows.Count, EngIndex + 1)) For Each Cell In Inrng If IsEmpty(Cell.Value) Then Exit For Else UserForm1.ListBox2.AddItem (Cell.Value) End If Next UserForm1.Show End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error in Code | Excel Discussion (Misc queries) | |||
error in this code | Excel Worksheet Functions | |||
Code Error | Excel Discussion (Misc queries) | |||
Error Code 481 | Excel Discussion (Misc queries) | |||
Code error ?? | Excel Discussion (Misc queries) |