I'm using this:

Sub Macro1()


Workbooks.Open Filename:="J:\Projects\MarketShare May 2007.xls"



'Trying to add code that will prompt me to select one of the worksheets
in the above workbook



Range("A7:I19").Select

Application.CutCopyMode = False

Selection.Copy

Windows("OCC_Top10.xls").Activate

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False



'Trying to add code that will email the current selection to
"





End Sub



Thank you in advance.