Looping in Macro help.

I am trying to write a macro that will start on the the cell and column entered from user input and loop number of times entered by user. When you enter the starting point it starts on the next row not the initial cell entered from the prompts.

Example if you enter everything to start on B4 it actually starts on B5 then loops the correct number of times.

Sub pivot_extract()
'
' pivot_extract Macro
'

'
Dim I
Col = InputBox("Column to start on?")
Cell = InputBox("Cell to start on?")
L = InputBox("How many times to repeat?")
For I = 1 To L

    Application.ScreenUpdating = False
    Cell = Cell + 1
    Range(Col & Cell).Select
    Selection.ShowDetail = True
    Sheets("ILCC Pivots").Select

Next I
End Sub

That is the code I have thus far. But can't seem to enter the correct code to get it to repeat. Any help would be greatly appreciated.

Originally Posted by patel45

L = Val(InputBox("How many times to repeat?"))

inputbox returns a string

not sure what you are asking but with i change that line. it still does the same. starts on the cell after the one entered in the input.

I think you need to change:

Sub pivot_extract()
'
' pivot_extract Macro
'

'
Dim I
Col = InputBox("Column to start on?")
Cell = InputBox("Cell to start on?")
L = InputBox("How many times to repeat?")
For I = 1 To L

    Application.ScreenUpdating = False
    Cell = Cell + 1
    Range(Col & Cell).Select
    Selection.ShowDetail = True
    Sheets("ILCC Pivots").Select

Next I
End Sub

To this:

Sub pivot_extract()
'
' pivot_extract Macro
'

'
Dim I
Col = InputBox("Column to start on?")
Cell = InputBox("Cell to start on?")
L = InputBox("How many times to repeat?")
For I = 1 To L

    Application.ScreenUpdating = False
    Range(Col & Cell).Select
    Selection.ShowDetail = True
    Sheets("ILCC Pivots").Select
    Cell = Cell + 1

Next I
End Sub

Originally Posted by JOHN H. DAVIS

I think you need to change:

Sub pivot_extract()
'
' pivot_extract Macro
'

'
Dim I
Col = InputBox("Column to start on?")
Cell = InputBox("Cell to start on?")
L = InputBox("How many times to repeat?")
For I = 1 To L

    Application.ScreenUpdating = False
    Cell = Cell + 1
    Range(Col & Cell).Select
    Selection.ShowDetail = True
    Sheets("ILCC Pivots").Select

Next I
End Sub

To this:

Sub pivot_extract()
'
' pivot_extract Macro
'

'
Dim I
Col = InputBox("Column to start on?")
Cell = InputBox("Cell to start on?")
L = InputBox("How many times to repeat?")
For I = 1 To L

    Application.ScreenUpdating = False
    Range(Col & Cell).Select
    Selection.ShowDetail = True
    Sheets("ILCC Pivots").Select
    Cell = Cell + 1

Next I
End Sub

That works. thank you. I had the + 1 in the wrong place.

You're welcome. Glad to help out, and thanks for the feedback. In accordance with Forum Rule No. 9 please mark this thread as solved.