userformのNamebox

Question

私は、テキストボックスを使ってuserform（userform6）を作成しました。私は最後の5行の名前を与える必要があります。

ここに私が使用しているコードがあります。コードは最後の5行も選択しますが、エラーが発生しました。

Dim n As Long 

n = 5 

Cells(Rows.Count, "A").End(xlUp).Offset(1 - n). _ 
Resize(n).EntireRow.Select 
Selection.Name = UserForm6.TextBox8.Text 

ランタイムエラー1004が発生し、エラー "selection.name = userForm6.TextBox8.Text"がハイライト表示されます。スペースもチェックしましたが、成功しませんでした。

ご協力いただければ幸いです。

Answer 1

Range - 実際にはではありません。また、Selectにする必要はありませんので、Nameにしてください。なぜそれを遅くするのですか？

だからここに私達は行く：

Dim n As Long 
n = 5 
Range("A" & Rows.Count).End(xlUp).Offset(-n + 1).Resize(n).EntireRow.Name = UserForm6.TextBox8.Text