Macro help please

  • Thread starter Thread starter Neil Holden
  • Start date Start date
N

Neil Holden

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.
 
Sub Macro()

ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
Columns("B:B").EntireColumn.Hidden = True
Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub


If this post helps click Yes
 
Typo alert. The dots before the Columns() was lost:

Sub Macro()
ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
.Columns("B:B").EntireColumn.Hidden = True
.Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub
 
Hi thanks for that, i have got the hiding columns working fine, but i don't
want an excel name saving i want the user to type the name of the file?

Thanks again for your help.

Neil.
 
Back
Top