Try the below..

Dim strAddress As String, arrAddress As Variant
strAddress = Range("C10:K90").SpecialCells(xlCellTypeConstants, _
xlNumbers + xlTextValues).Address
arrAddress = Split(Replace(strAddress, ":", ","), ",")
Range(arrAddress(0), arrAddress(UBound(arrAddress))).Select


--
Jacob (MVP - Excel)


"puiuluipui" wrote:

Hi, i encountered a problem and i need the macro to select a square from the
first left cell to the last right cell and from the top cell to the bottom
cell.

Can this be done?
Thanks!

"Jacob Skaria" a scris:

Range("C10:K90").SpecialCells(xlCellTypeConstants, _
xlNumbers + xlTextValues).Select

If you want to select xlErrors and xlLogical add those to xlNumbers +
xlTextValues

--
Jacob (MVP - Excel)


"puiuluipui" wrote:

Hi, i need an macro to select all filled cells in range C10:K90.
Can this be done?
Thanks!!!