Simple Macro to Delete Two Blank Worksheets and Move One Worksheet to Another (Master) File

Here is a macro that will delete Sheet 2 and Sheet 3 from one file and then move the remaining worksheet from that file into another file called master.xls. Hope someone finds this useful one day.

Sub deletemove()

‘ deletemove Macro
‘ Keyboard Shortcut: Ctrl+l

Sheets(“Sheet2”).Select
ActiveWindow.SelectedSheets.Delete

Sheets(“Sheet3”).Select
ActiveWindow.SelectedSheets.Delete

ActiveSheet.Select
ActiveSheet.Move Before:=Workbooks(“Master.xls”). _Sheets(1)

End Sub