Hello,

I have a little program that needs to run on a sheet that has multiple user
information on it. The users go in and use the auto filter funtion so that
they only view the information important to them. When this program runs and
they select the cells they want (They often drag the mouse over a range that
may have hidden ranges within it) the program selects hidden cells aswell.
Is there a way that it will only select the ranges that are selected and
viewable:

Here is the code I'm using for this section of the program:

Dim rCells As Range
Dim rRange As Range
Dim rstart As Range
Dim ireply As Integer
Dim strStart As String

On Error Resume Next
'Let the user choose the cells with the drawings that will appear on the
Draw. Ack.
Set rCells = Application.InputBox _
(Prompt:="Select the drawings you wish to appear on the Drawing
Acknowledgement", _
Title:="Create Drawing Acknowledgement", Left:=558, Type:=8)
For Each rRange In rCells...

Thanks,
Jordan

I think you want to use:
Selection.SpecialCells(xlCellTypeVisible).Select

--
steveB

Remove "AYN" from email to respond
"Jordan" wrote in message
...
Hello,

I have a little program that needs to run on a sheet that has multiple
user
information on it. The users go in and use the auto filter funtion so
that
they only view the information important to them. When this program runs
and
they select the cells they want (They often drag the mouse over a range
that
may have hidden ranges within it) the program selects hidden cells aswell.
Is there a way that it will only select the ranges that are selected and
viewable:

Here is the code I'm using for this section of the program:

Dim rCells As Range
Dim rRange As Range
Dim rstart As Range
Dim ireply As Integer
Dim strStart As String

On Error Resume Next
'Let the user choose the cells with the drawings that will appear on the
Draw. Ack.
Set rCells = Application.InputBox _
(Prompt:="Select the drawings you wish to appear on the Drawing
Acknowledgement", _
Title:="Create Drawing Acknowledgement", Left:=558, Type:=8)
For Each rRange In rCells...

Thanks,
Jordan

Thanks Steve, thats what I needed.

"STEVE BELL" wrote:

I think you want to use:
Selection.SpecialCells(xlCellTypeVisible).Select

--
steveB

Remove "AYN" from email to respond
"Jordan" wrote in message
...
Hello,

I have a little program that needs to run on a sheet that has multiple
user
information on it. The users go in and use the auto filter funtion so
that
they only view the information important to them. When this program runs
and
they select the cells they want (They often drag the mouse over a range
that
may have hidden ranges within it) the program selects hidden cells aswell.
Is there a way that it will only select the ranges that are selected and
viewable:

Here is the code I'm using for this section of the program:

Dim rCells As Range
Dim rRange As Range
Dim rstart As Range
Dim ireply As Integer
Dim strStart As String

On Error Resume Next
'Let the user choose the cells with the drawings that will appear on the
Draw. Ack.
Set rCells = Application.InputBox _
(Prompt:="Select the drawings you wish to appear on the Drawing
Acknowledgement", _
Title:="Create Drawing Acknowledgement", Left:=558, Type:=8)
For Each rRange In rCells...

Thanks,
Jordan

Jordan,

You're welcome...

keep on Exceling...

--
steveB

Remove "AYN" from email to respond
"Jordan" wrote in message
...
Thanks Steve, thats what I needed.

"STEVE BELL" wrote:

I think you want to use:
Selection.SpecialCells(xlCellTypeVisible).Select

--
steveB

Remove "AYN" from email to respond
"Jordan" wrote in message
...
Hello,

I have a little program that needs to run on a sheet that has multiple
user
information on it. The users go in and use the auto filter funtion so
that
they only view the information important to them. When this program
runs
and
they select the cells they want (They often drag the mouse over a range
that
may have hidden ranges within it) the program selects hidden cells
aswell.
Is there a way that it will only select the ranges that are selected
and
viewable:

Here is the code I'm using for this section of the program:

Dim rCells As Range
Dim rRange As Range
Dim rstart As Range
Dim ireply As Integer
Dim strStart As String

On Error Resume Next
'Let the user choose the cells with the drawings that will appear on
the
Draw. Ack.
Set rCells = Application.InputBox _
(Prompt:="Select the drawings you wish to appear on the Drawing
Acknowledgement", _
Title:="Create Drawing Acknowledgement", Left:=558, Type:=8)
For Each rRange In rCells...

Thanks,
Jordan