Thread: Spinner Link Cell Doesnt Change when i Copy and Paste the Row

Hi All

I have a Piece of Code that copys a Row in my Spreadsheet and Pastes it underneath the original Row.

The Problem that I am having is that within the Row it Copys there is a Spinner in it. I want the Spinner to be copied also but the Cell that the Spinner is Linked to Says as the Original Cell, it doesnt move Down with the New Row Pasted in.

Here is the code that i have written to Copy the Row and Paste it down a Row.

Code:

Sub NEXT_LINE()

Dim LROW As Double

Let LROW = Sheets("Sheet1").Range("B65536").End(xlUp).Row

Range(Cells(LROW, 2), Cells(LROW, 9)).Select
Selection.Copy
Cells(LROW + 2, 2).Insert
Application.CutCopyMode = False

Cells(LROW + 2, 2).Select
Selection.ClearContents

End Sub

I have also Included an Example of how I am using it.

I have a Macro button that runs the code and copys the row with the formulas and Spinner and inserts them underneat which is what I want, but I also want the spinner Link cell to change with it.


Thanks For all your Help

Tom.

Where's the example?

Try adding this line before your End Sub:

Code:

ActiveSheet.Spinners(ActiveSheet.Spinners.Count).LinkedCell = Cells(LROW + 2, 4).Address