macro to create a range name

[selfteaching]

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

Mike

[Paul_Hossler]

I changed the HTML tags in your post to CODE tags -- that's the icon [#] to use for macros, not the [<>] icon

I usually just do something like this

  ActiveCell.Offset(-1, 0).Range("A1"). Name:="here"

I don't think you need the Range("A1")

[selfteaching]

Thank you Paul_Hossler

mike