Rehide Sheet in macro.

  • Thread starter Thread starter ChuckF
  • Start date Start date
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!!
 
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
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
Emailing an Excel Worksheet 1
Code needs simplifying 5
Macro 2
Save all sheets in a new workbook 7
Can't Prevent Recalculation 4
Repeating a Macro Based 2
Why doesnt it change sheet in the macro 1

Back
Top