Sub TweakMetricsReport()
Dim xlApp As Excel.Application
Dim filePath As String
filePath = CurrentProject.path & "\Linked\metrics_report.xls"
On Error Resume Next
Set xlApp = New Excel.Application
xlApp.Visible = False
xlApp.Workbooks.Open FileName:=filePath, ReadOnly:=False
xlApp.sheets("data").Select
xlApp.Columns("BY:CZ").Select
xlApp.Selection.Delete Shift:=xlToLeft
xlApp.ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
xlApp.ActiveWorkbook.Save
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
|