VBA naming Excel Ranges

[Chance1234]

why doesnt this work

Public sub psubnamemyrange(strran1,strran2,strsht,intr)

ActiveWorkbook.Names.Add Name:=stRran1, RefersToR1C1:="=" & stRsht & "!R" & IntR + 1 & "C2"
ActiveWorkbook.Names.Add Name:=STrran2, RefersToR1C1:="=" & stRsht & "!R3C2:R" & IntR & "C2"

end sub

when this does work

public sub subnameoneofmyrange
ActiveWorkbook.Names.Add Name:="NewLineb", RefersToR1C1:="=ccdata!R" & IntR + 1 & "C2"
ActiveWorkbook.Names.Add Name:="NewListb", RefersToR1C1:="=ccdata!R3C2:R" & IntR & "C2"
end sub

Filmmaker, gentlemen and East end club promoter

http://public.fotki.com/chance1234/

 

[RobBroekhuis]

Does stRsht perchance contain a space? If not, can you evaluate your refersto string (by printing it in the immediate window) and let us know what it is?
Rob

 

[Chance1234]

my mistake there was nothing wrong with it, i was just passing the wrong variables to it DOPE !

Filmmaker, gentlemen and East end club promoter

http://public.fotki.com/chance1234/

 

[SkipVought]

Rob is correct -- it the sheet name has a space, then you need tic marks around the sheet name

ActiveWorkbook.Names.Add Name:=stRran1, RefersToR1C1:="='" & stRsht & "'!R" & IntR + 1 & "C2"

ALSO...

If stRran1 or STrran2 have spaces, it will NOT work. The spaces (and other non alpha-numeric characters) must be replaced by underscore. Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com