Thread: Macro Creation
View Single Post
  #4   Report Post  
Bob Phillips
 
Posts: n/a
Default

No just put that code in myMacro.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Programming Cells" wrote in
message ...
Do I have this as another Sub under my VB code in the work sheet or does

this
get included in my Macro? Sorry for the questions.

Sub MyMacro()

' MyMacro Macro
' Macro recorded 7/28/2005 by markl
'
' Keyboard Shortcut: Ctrl+Shift+J
'
End Sub

Sub Row1()
Application.Goto Cells(1, ActiveCell.Column)
End Sub



"Bob Phillips" wrote:

Sub Row1()
Application.Goto Cells(1, ActiveCell.Column)
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Programming Cells" wrote

in
message ...
I currently have code in VB to position me to the next cell row (1)

after
i
reach Row 10 in any given cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row = 11 Then

Target.Offset(1 - Target.Row, 1).Select

End If

End Sub


How do I also incorporate a Ctrl+Shift+J to jump to the next cell

row(1)
if
I want to manually do it before reaching Row 10 in any cell?

Your help is much appreciated.