Evalute should probably be evaluate or something more meaningful since no
evaluation seems to be included in the code.

--
Regards,
Tom Ogilvy

"DataFreakFromUtah" wrote in message
om...
No question here, just a procedure for the archive.
Search critera:

Select only visible cells in a selected range
manually select just the visible cells in a subset of the whole page
Prompt target to select specific specifically range and only visible cells


Sub SelectOnlyVisibleCellsInSelectedRange()

'Selects only the visible cells in a selected range.
On Error Resume Next
Dim MyRange As Range
Set MyRange = Application.InputBox( _
prompt:="Select Range of Cells to Evalute", Type:=8)
MyRange.SpecialCells(xlCellTypeVisible).Select

End Sub