Please see below the whole block:
For numNames = 1 To NamesCount
sVldName = WorksheetFunction.Index(vldNames, numNames, 0)
ActiveWorkbook.Names.Item("vld" & sVldName).Delete
vldFormula = "=OFFSET(Data!$B$2,MATCH(Data!$I$" & numNames + 2 &
",Data!$B$3:$B$65536,0),3,COUNTIF(Data!$B:$B,Data!$I$" & numNames + 2 & "),1)"
ActiveWorkbook.Names.Add Name:="vld" & sVldName, RefersTo:=vldFormula
Next numNames
--
Thanx & regards,
Asif
"Rick Rothstein (MVP - VB)" wrote:
> When you say it is "before the assignment statements below", do you mean it
> is before this one?
>
> sVldName = WorksheetFunction.Index(vldNames, numNames, 0)
>
> In other words, do you mean you are trying to use sVldName **before** you
> assign anything to it?
>
> Rick
>
>
> "Asif" <(E-Mail Removed)> wrote in message
> news:0F732F01-5A72-4709-847C-(E-Mail Removed)...
> > Hi Bob,
> >
> > I have following statement now which is causing the same runtime error
> >
> > ActiveWorkbook.Names.Item("vld" & sVldName).Delete
> >
> > Above statement is before the assignment statements below.
> >
> > --
> > Thanx & regards,
> > Asif
> >
> >
> > "Bob Phillips" wrote:
> >
> >> I got an error in the formula. See if this sorts it
> >>
> >> vldFormula = "=OFFSET(Data!$B$2,MATCH(Data!$I$" & numNames + 2 & _
> >> ",Data!$B$3:$B$65536,0),3,COUNTIF(Data!$B:$B,Data!$I$" &
> >> numNames + 2 & "),1)"
> >>
> >>
> >> --
> >> HTH
> >>
> >> Bob
> >>
> >> (there's no email, no snail mail, but somewhere should be gmail in my
> >> addy)
> >>
> >> "Asif" <(E-Mail Removed)> wrote in message
> >> news:8F4D1DD2-52E9-4EB0-B37A-(E-Mail Removed)...
> >> > Here are the definitions of variables:
> >> >
> >> > Dim vldFormula As String, sVldName As String
> >> >
> >> > sVldName = WorksheetFunction.Index(vldNames, numNames, 0)
> >> >
> >> > vldFormula = "=OFFSET(Data!$B$2,MATCH(Data!$I$" & numNames + 2 & _
> >> > ",Data!$B$3:$B$65536,0),3,COUNTIF(Data!$B$B,Data!$I$" &
> >> > numNames + 2 & "),1)"
> >> >
> >> > --
> >> > Thanx & regards,
> >> > Asif
> >> >
> >> >
> >> > "Bob Phillips" wrote:
> >> >
> >> >> What is in vldName and vldFormula?
> >> >>
> >> >> --
> >> >> HTH
> >> >>
> >> >> Bob
> >> >>
> >> >> (there's no email, no snail mail, but somewhere should be gmail in my
> >> >> addy)
> >> >>
> >> >> "Asif" <(E-Mail Removed)> wrote in message
> >> >> news
D017C8C-5959-4B05-AD00-(E-Mail Removed)...
> >> >> > Hi there,
> >> >> >
> >> >> > I am trying to create Names with the following statement:
> >> >> >
> >> >> > ActiveWorkbook.Names.Add Name:="vld" & sVldName,
> >> >> > RefersTo:=vldFormula
> >> >> >
> >> >> > I keep getting the runtime error 1004. I will appreciate if somebody
> >> >> > would
> >> >> > help me getting round this probelm.
> >> >> >
> >> >> > --
> >> >> > Thanx & regards,
> >> >> > Asif
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>