Many Thanks !

oldjay

"Norman Jones" wrote:

Hi Oldjay,

Try something like:

'=============
Public Sub Tester()
Dim SH As Worksheet
Dim Rng As Range
Dim iRow As Long

Set SH = ActiveSheet '<<==== CHANGE

With SH
iRow = .Range("B" & Rows.Count).End(xlUp).Row

Set Rng = .Range("B2:E" & iRow)
Rng.Name = "Databse"
End With
End Sub
'<<=============


---
Regards,
Norman



"Oldjay" wrote in message
...
I need to expand or reduce a range named "Database
I need to use (I guess) OffSet to select 4 adjacent col's

I started with this

Range("B6").Select
Range(Selection, Selection.End(xlDown)).Select
Range("Database").CurrentRegion.Name = "Database"

How do I do this?

oldjay