Ranges & Names

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

i use the ffg code:

Private Sub CommandButton1_Click()

Selection.CurrentRegion.Select

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell = TextBox1.Text
Selection.CurrentRegion.Select

Selection.Sort Key1:=Range("a5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWorkbook.Names("ClientInfo").Delete
ActiveWorkbook.Names.Add Name:="ClientInfo"
End Sub

i need the currentregion command to select my currentregion and name that
range ClientInfo, but doesnt want to....

How can this code be modified to execute as desired...
PLZ HELP
 
Private Sub CommandButton1_Click()

Selection.CurrentRegion.Select

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell = TextBox1.Text
Selection.CurrentRegion.Select

Selection.Sort Key1:=Range("a5"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWorkbook.Names("ClientInfo").Delete
Selection.Name = "ClientInfo"
End Sub




--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Back
Top