Rehide Sheet in macro.

C

ChuckF

I have the following macro
Sub testa()
'
' testa Macro
' Macro recorded 3/29/2006 by Chuck F.
'

'
Sheets("Nationals Import Sheet").Visible = True
Sheets("Nationals Import Sheet").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
Cells.Select
Cells.EntireColumn.AutoFit
Range("T2").Select

Basically it unhides a sheet called "Nationals Import Sheet" and copies
the data into a new workbook.

What I can't figure out is how to have the macro go back into the
orgional sheet, and rehide that tab.

Any help would be great!!
 
G

Gazeta

Uzytkownik "ChuckF said:
I have the following macro
Sub testa()
'
' testa Macro
' Macro recorded 3/29/2006 by Chuck F.
'

'
Sheets("Nationals Import Sheet").Visible = True
Sheets("Nationals Import Sheet").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
Cells.Select
Cells.EntireColumn.AutoFit
Range("T2").Select

Basically it unhides a sheet called "Nationals Import Sheet" and copies
the data into a new workbook.

What I can't figure out is how to have the macro go back into the
orgional sheet, and rehide that tab.

Any help would be great!!
Click to expand...
try
workbook("your name").Sheets("Nationals Import Sheet").Visible = false
or
activewindow.activatenext
Sheets("Nationals Import Sheet").Visible = false
mcg
 
A

Alan

Try this (untested)
Regards,
Alan.

Sheets("Nationals Import Sheet").Visible = True
Sheets("Nationals Import Sheet").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Nationals Import Sheet").Visible = False
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
Cells.Select
Cells.EntireColumn.AutoFit
Range("T2").Select
 
Top