Named Range

[Sukumar]

Hi,

Is it possibile to Name a Range (for example, "$A$1:$AI$3210" as NewRange) and then use it in following code: -

Dim LastRowofSheet As Long
            Dim LastColnofSheet As Long
   
            LastRowofSheet = Cells(Rows.Count, 1).End(xlUp).Row
            LastColnofSheet = Cells(1, Columns.Count).End(xlToLeft).Column
           
            ActiveSheet.Range("$A$1:$AI$3210").AutoFilter Field:=1, Criteria1:="=2200*", Operator:=xlAnd

 

[Hui]

Dim LastRowofSheet As Long
            Dim LastColnofSheet As Long
   
            LastRowofSheet = Cells(Rows.Count, 1).End(xlUp).Row
            LastColnofSheet = Cells(1, Columns.Count).End(xlToLeft).Column
  ActiveWorkbook.Names.Add Name:="NewRange", RefersToR1C1:="=Sheet1!R1C1:R3210C35"           
            ActiveSheet.Range("NewRange").AutoFilter Field:=1, Criteria1:="=2200*", Operator:=xlAnd

 

[Sukumar]

Hi,

Thank you,

I changed this code to following: -

 ActiveWorkbook.Names.Add Name:="NewRange", RefersToR1C1:="=R2C1:R" & LastRowofSheet & "C" & LastColnofSheet