Visual Basic para Aplicaciones - consultas sin dns vba excel

necesito que cuando se habra una consulta sql en vba o se camboe el nombre a uno predeterminado o que capture el nombre de la primera hoja para utilizarla para creAR UNA CONEXION QUE COPIE RTODOS LOS DATOS DE LA HOJA
ESTOES LO QUE TEMGPO Y NO CAMBIA EL NOMBRE DE LA HOJA

'Seleccionamos archivos
Application.ScreenUpdating = False
narchivos = Application.GetOpenFilename(filefilter:="Archivos de Excel (*.xlsx;*.xlsm),*.xlsx;*.xlsm," & _
"Todos los archivos (*.*),*.*", _
Title:="SELECCIONAR ARCHIVO DELCATALOGO ", MultiSelect:=False)
If narchivos = False Then Exit Sub


ActiveWorkbook.Sheets(1).Select
OFERTA = ActiveSheet.Next.Name

'Indicamos los parámetros de la consulta SQL para importar la tabla completa
'obSQL = "SELECT [OFERTA$].*" & "FROM [OFERTA$] "
obSQL = "SELECT [OFERTA$].*" & "FROM [OFERTA$] "
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Connectionstring = "DATA SOURCE=" & narchivos
.Properties("Extended Properties") = "Excel 8.0"
.Open
End With