Macro Question

C

carl

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
"[email protected]"





End Sub



Thank you in advance.
 
G

Gary''s Student

Sub demo()
Dim s As String
s = Application.InputBox("enter tab name:", 2)
Sheets(s).Activate
End Sub
 
Top