Tami, try the below and feedback

If MsgBox("Do you want to insert a new style at your cursor", _
vbYesNo + vbDefaultButton2) = vbYes Then
ActiveCell.EntireRow.Insert Shift:=xlDown
Rows(Range("sample_style").Row).Copy Rows(ActiveCell.Row)
End If

If this post helps click Yes
---------------
Jacob Skaria


"Tami" wrote:

hi.
Can someone review the below code and suggest what i need to change to get
the macro to insert the range name " sample_style" where the cursor was at
the time the macro button was pressed. Currently, the macro inserts the
"sample style", beneath the "sample_style" range.
thanks in advance for any advice.
thx

If MsgBox("Do you want to insert a new style at your cursor", vbYesNo +
vbDefaultButton2) = vbYes Then

ActiveCell.EntireRow

Range("sample_style").Select
Selection.Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
Else
Exit Sub
End If
End Sub