Question

I want to name a range in an excel sheet that is created dynamically. I tried following but it is not working.

With oWB
  For intCount = 1 To wbnum1
    .Worksheets.Add(After:=.Worksheets(intCount + 1)) 
    .Sheets(intCount + 1).Name = "Sheet" & intCount.ToString()
    .Sheets(intCount + 1).Cells(19, 2).value = "Sheet" & intCount.ToString
    .Sheets(intCount+1).Range("A1:Z1")
    .Range.Name = "Numbers"
  Next

what is wrong with this?

Thanks

Answer 1

You aren’t specifying a Range.

Presumably, you should merge your last and second to last line:

.Sheets(intCount+1).Range("A1:Z1").Name = "Numbers"

However, from experimentation it appears that assigning the name this way creates workbook level names resulting in only the last assignment being valid after you loop through your worksheets.

An alternate/safer way to do this is to add the name as a worksheet specific name via the worksheet’s names collection:

.Sheets(intCount+1).Names.Add "Numbers", .Sheets(intCount+1).Range("A1:Z1")