Input Box for range

[aa2000]

Hello again all

I have a macro which looks at a range and the hyperlinks present in that range. The macro returns a "subscript out or range error" if no hyperlink is present in a cell.

Currently the range is:

For a = 3 To 895

Where a is an integer. While the start of the range (3) will always be the same, the end (895) will vary. How can I get the macro to get the user to put in a value for the last value? I.e an input box for the last row in the range?

 

[VoG]

Try like this

x = Application.InputBox("Enter last row", Type:=1)
For a = 3 To x