Sub AutoFitAllColumns()
'
' Fit width of all columns used
'
' Keyboard Shortcut: Ctrl+W
'
    Cells.EntireColumn.AutoFit
End Sub


Sub SaveAsTestplan()
'
' Save sheet as Tab Delimited with .testplan extension
'
' Keyboard Shortcut: Ctrl+R
'
Dim filesavename As String
Dim origfilename As String

Application.DisplayAlerts = False

' Save file name and path into a variable
   ' first find the directory where the workbook is located.
   origfilename = ActiveWorkbook.FullName
   filesavename = ActiveWorkbook.Path & "/" & ActiveSheet.Name & ".testplan"
   
' Save file as .txt TAB delimited
   ActiveWorkbook.SaveAs Filename:= _
        filesavename, FileFormat:=xlText, _
        CreateBackup:=False

    file_name_saved = ActiveWorkbook.FullName
    MsgBox "Saved your testplan at: " & vbCr & vbCr & filesavename
   
   
' Go back to excel format after TAB delimited file has been created and saved
   ActiveWorkbook.SaveAs Filename:= _
        origfilename, FileFormat:= _
        51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

     Application.DisplayAlerts = True

End Sub