Excel macro that inserts rows 2

[pmtc]

Hi All I am hoping someone can help me with this macro. I am trying to write a sub that will allow the user to click any cell in a row, run the macro, and insert the desired number of rows based on the users input. I can not get the "Rows" statement to accept my variables, any help would be appreciated.

Sub InsertRows()

Dim I As Integer
Dim C As Integer
Dim T As Integer
    I = InputBox("How many rows would you like to add?", "Add Rows above selected")
    C = ActiveCell.Row
    T = C + (I - 1)
        Rows("C:T").Select
        Selection.Insert Shift:=xlDown
        
End Sub

 

[Loomah]

hi pmtc
change
Rows("C:T&quot.Select
to
Range(Rows(C), Rows(T)).Select

happy friday
;-)
it all starts tomorrow!! If a man says something and there are no women there to hear him, is he still wrong?

 

[pmtc]

Works great Thank you!