hi,
Kevin has posted for me the following code in which "HYPERLINK" is a
subRoutine.the code cycles thru all the worksheets.I wanna know if there is
any way to get the procedure cycle only thru the first 3 worksheets.the first
three worksheets have different names?

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ThisWorkBook.Worksheets
ws.Activate
HYPERLINK
Next ws
end sub
thanx.

Private Sub CommandButton18_Click()
dim wCtr as long
for wctr = 1 to 3
worksheets(wctr).Activate
myHYPERLINK
Next wctr
end sub

ps. I don't think I'd use Hyperlink as a name as a subroutine.

peyman wrote:

hi,
Kevin has posted for me the following code in which "HYPERLINK" is a
subRoutine.the code cycles thru all the worksheets.I wanna know if there is
any way to get the procedure cycle only thru the first 3 worksheets.the first
three worksheets have different names?

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ThisWorkBook.Worksheets
ws.Activate
HYPERLINK
Next ws
end sub
thanx.

--

Dave Peterson

Just SHIFT + click to select the sheets then run

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ActiveWindow.SelectedSheets
ws.Activate
HYPERLINK
Next ws
End sub


Gord Dibben MS Excel MVP

On Thu, 11 Oct 2007 09:15:07 -0700, peyman
wrote:

hi,
Kevin has posted for me the following code in which "HYPERLINK" is a
subRoutine.the code cycles thru all the worksheets.I wanna know if there is
any way to get the procedure cycle only thru the first 3 worksheets.the first
three worksheets have different names?

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ThisWorkBook.Worksheets
ws.Activate
HYPERLINK
Next ws
end sub
thanx.

thanx Dave.

"Dave Peterson" wrote:

Private Sub CommandButton18_Click()
dim wCtr as long
for wctr = 1 to 3
worksheets(wctr).Activate
myHYPERLINK
Next wctr
end sub

ps. I don't think I'd use Hyperlink as a name as a subroutine.

peyman wrote:

hi,
Kevin has posted for me the following code in which "HYPERLINK" is a
subRoutine.the code cycles thru all the worksheets.I wanna know if there is
any way to get the procedure cycle only thru the first 3 worksheets.the first
three worksheets have different names?

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ThisWorkBook.Worksheets
ws.Activate
HYPERLINK
Next ws
end sub
thanx.

--

Dave Peterson

thank you Gord,but I'd prefer to handle it without the SHIFT + click .thanx
anyway.

"Gord Dibben" wrote:

Just SHIFT + click to select the sheets then run

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ActiveWindow.SelectedSheets
ws.Activate
HYPERLINK
Next ws
End sub


Gord Dibben MS Excel MVP

On Thu, 11 Oct 2007 09:15:07 -0700, peyman
wrote:

hi,
Kevin has posted for me the following code in which "HYPERLINK" is a
subRoutine.the code cycles thru all the worksheets.I wanna know if there is
any way to get the procedure cycle only thru the first 3 worksheets.the first
three worksheets have different names?

Private Sub CommandButton18_Click()
Dim ws as Worksheet
For Each ws in ThisWorkBook.Worksheets
ws.Activate
HYPERLINK
Next ws
end sub
thanx.