Select a cell with target.row

[castak]

Hi,

I've got a problem in my Worksheet_SelectionChange event.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SelectCel As Range
Dim SelectCelOffset As Range

With Sheets(1)


Set SelectCel = .Cells(Target.Row, 2)
SelectCelOffset = SelectCel.Offset(0, 2).Select
MsgBox SelectCelOffset.Address


End With


End Sub

I'm trying to activate the cells that is 2 columns after the one I select.
But I've got an error message 91 on this line :


SelectCelOffset = SelectCel.Offset(0, 2).Select

Can someone help me ?

[大灰狼1976]

Hi castak!
Nice to meet you again.
If the cell you want to select is not in this worksheet, you may activate another worksheet first.
and you need to prevent chain reaction.

[大灰狼1976]

If it is in the same worksheet
change code into below:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SelectCel As Range
Dim SelectCelOffset As Range
With Sheets(1)

Set SelectCel = .Cells(Target.Row, 2)
Set SelectCelOffset = SelectCel.Offset(0, 2)
MsgBox SelectCelOffset.Address

End With

End Sub

[castak]

Nice to meet you agin 大灰狼1976 (http://www.vbaexpress.com/forum/member.php?70849-%26%2322823%3B%26%2328784%3B%26%2329436%3B1976) too! :yes

All right it works now thank you very much!