From: rumkus on 28 Feb 2010 15:22 Rigt click on the sheet tab and click "view code". Copy below code and paste it on the code window. A6 as the cell with validation. Change it to your cell address. ------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("A6")) Is Nothing Then Target.Offset(0, 1).Select End If End Sub
|
Pages: 1 Prev: cpu usage when excel is in taskbar Next: MSCOMM Control with Excel 2003 |