what is the code to assign a name to a cell using vb?
thanks

Dim myCell as range
set mycell = activesheet.range("x9")
mycell.name = "avalidnamehere"



jnewl wrote:
>
> what is the code to assign a name to a cell using vb?
> thanks

--

Dave Peterson

Sub Macro1()
ActiveWorkbook.Names.Add Name:="qwerty", RefersToR1C1:="=Sheet1!R3C2"
End Sub
--
Gary''s Student - gsnu200806


"jnewl" wrote:

> what is the code to assign a name to a cell using vb?
> thanks

ActiveWorkbook.Names.Add Name:="nametoassign", RefersTo:="=Sheet1!A1"
assigns name "nametoassign" to cell A1 in Sheet1.

Regards,
Stefi

„jnewlâ€� ezt Ã*rta:

> what is the code to assign a name to a cell using vb?
> thanks

vba

range("a1").name="typenamehere"

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"jnewl" <(E-Mail Removed)> wrote in message
news:70EC7881-FE99-4197-A788-(E-Mail Removed)...
> what is the code to assign a name to a cell using vb?
> thanks

i have multi tabs on a series of worksheets. i am inserting a column at the
beginning of each worksheet and then populating that column with the name on
the tab. i want to name the column in "a1", fee sched id.

i tried what you suggested but i get an error. 'name not found error"

what am i doing wrong


Sub fixdata()
Dim wks As Worksheet
Dim mycol As Long
Dim lastrow As Long
Dim mycell As Range
mycol = 1
For Each wks In ActiveWorkbook.Worksheets
With wks
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Columns(mycol).Insert
.Range(.Cells(1, mycol), .Cells(lastrow, mycol)).Value = "'" & wks.Name
Set mycell = ActiveSheet.Range("A1")
mycell.Name = "fee sched id"
End With
Next wks
End Sub

thanks



"Dave Peterson" wrote:

> Dim myCell as range
> set mycell = activesheet.range("x9")
> mycell.name = "avalidnamehere"
>
>
>
> jnewl wrote:
> >
> > what is the code to assign a name to a cell using vb?
> > thanks
>
> --
>
> Dave Peterson
>

Since you want to use the same name for each worksheet, you'll want to use a
local (or worksheet) level name.

Option Explicit

Sub fixdata()
Dim wks As Worksheet
Dim mycol As Long
Dim lastrow As Long
Dim mycell As Range
mycol = 1
For Each wks In ActiveWorkbook.Worksheets
With wks
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Columns(mycol).Insert
.Range(.Cells(1, mycol), .Cells(lastrow, mycol)).Value = "'" & wks.Name
.Range("A1").Name = "'" & .Name & "'!fee_sched_id"
End With
Next wks
End Sub

I changed your space characters to underscore in the name of the cell.

jnewl wrote:
>
> i have multi tabs on a series of worksheets. i am inserting a column at the
> beginning of each worksheet and then populating that column with the name on
> the tab. i want to name the column in "a1", fee sched id.
>
> i tried what you suggested but i get an error. 'name not found error"
>
> what am i doing wrong
>
> Sub fixdata()
> Dim wks As Worksheet
> Dim mycol As Long
> Dim lastrow As Long
> Dim mycell As Range
> mycol = 1
> For Each wks In ActiveWorkbook.Worksheets
> With wks
> lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
> .Columns(mycol).Insert
> .Range(.Cells(1, mycol), .Cells(lastrow, mycol)).Value = "'" & wks.Name
> Set mycell = ActiveSheet.Range("A1")
> mycell.Name = "fee sched id"
> End With
> Next wks
> End Sub
>
> thanks
>
> "Dave Peterson" wrote:
>
> > Dim myCell as range
> > set mycell = activesheet.range("x9")
> > mycell.name = "avalidnamehere"
> >
> >
> >
> > jnewl wrote:
> > >
> > > what is the code to assign a name to a cell using vb?
> > > thanks
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson