Name a bunch of cells each a unique sequential name

[UncleBajubjubs]

Good morning,
Is there a quick way to name a set of set each with its unique name? I have a column of cells, and I want cell A1 to be named "Import1", cell A2 to be named "Import2", etc. Is there a way to do this automatically, or will I have to manually name each cell?
Thanks

 

[My Aswer Is This]

Try this:

Sub Name_Me()
'Modified 8/6/2019 10:27:33 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim count As Long
count = InputBox("How Many Rows")
    For i = 1 To count
        Cells(i, 1).Name = "Import" & i
    Next
Application.ScreenUpdating = True
End Sub

 

[UncleBajubjubs]

Try this:

Sub Name_Me()
'Modified 8/6/2019 10:27:33 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim count As Long
count = InputBox("How Many Rows")
    For i = 1 To count
        Cells(i, 1).Name = "Import" & i
    Next
Application.ScreenUpdating = True
End Sub

Thanks, that worked great!

I also have a corresponding table which will need similarly numbered named, like "Link1" "Link2", etc., however this column has cell BK6 as the first cell, so I'm not sure that best way to modify the original code.

 

[My Aswer Is This]

Try this for Link:

Sub Name_Me_Link()
'Modified  8/6/2019  11:06:41 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim count As Long
count = InputBox("How Many Rows")
    For i = 6 To count + 5
        Cells(i, "BK").Name = "Link" & i - 5
    Next
Application.ScreenUpdating = True
End Sub

 

[UncleBajubjubs]

Try this for Link:

Sub Name_Me_Link()
'Modified  8/6/2019  11:06:41 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim count As Long
count = InputBox("How Many Rows")
    For i = 6 To count + 5
        Cells(i, "BK").Name = "Link" & i - 5
    Next
Application.ScreenUpdating = True
End Sub

Worked perfectly, thanks!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Worked perfectly, thanks!