macro to create a range name

[asherryan]

Hi
I’m trying to open a spreadsheet and go to the last cell in A that has data and create a range name. (here)
That after another macro (macro1) delete the range name (here) and drop down one cell.
This is what I have: the part that range names the cell doesn’t work


Private Sub Worksheet_activate()

Range("A5").Select

ActiveWindow.FreezePanes = True
x = Range("a" & Rows.Count).End(xlUp).Row
Range("A" & x + 1).Select
ActiveWindow.ScrollRow = ActiveCell.Row - 8
ActiveCell.Offset(-1, 0).Range("A1").Select
' can't get this to work
ActiveWorkbook.Names.Add Name:="here"

Macro1
ActiveWorkbook.Names("here").Delete
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

[alansidman]

Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 6)