Nice improvement Rick........thanks


Vaya con Dios,
Chuck, CABGx3



"Rick Rothstein" wrote in message
...
Why vector through the variable?

Sub NameThatRegion()
ActiveCell.CurrentRegion.Name = "alpha"
End Sub

--
Rick (MVP - Excel)


"Gary''s Student" wrote in
message ...
Sub NameThatRegion()
Dim r As Range
Set r = ActiveCell.CurrentRegion
r.Name = "alphaa"
End Sub

--
Gary''s Student - gsnu200901