Change these column refs from letters to numbers

[tonywatsonhelp]

HI Everyone,

I need to change these column refs from Letters to numbers but just cant get it right.

please help

the code its in is

   Dim r As Range
  Set r = Intersect(Target, [AB14:AB214,AG14:AG214,AL14:AL214,AQ14:AQ214,AV14:AV214,BA14:BA214,BF14:BF214,BK14:BK214,BP14:BP214])
  If r Is Nothing Then Exit Sub
  If r.Cells.Count <> 1 Then Exit Sub

So I need each Range to be column numbers instead of letters so

AB14:AB214 = Column 28 Row 14 : Column 28 Row 214

Please help if you can

Thanks

Tony

 

[kalak]

Re: Help, I need to change these column refs from letters to numbers???

MsgBox Columns("AB").Column

etc.

 

[tonywatsonhelp]

Re: Help, I need to change these column refs from letters to numbers???

Hi Thanks Kalak,
I'll give that a try and see if it works for me