x = ActiveCell.Row y = ActiveCell.Column z = Cells(x, y + 3).Address & ":" & Cells(x, y + 1).Address Range(z).Activate