I'm trying to save a sheet as tab delimited text. Im using this code to ask for location and file name but wan to limit extension to tab delmited text format. I cant find the code to do that.

Formula: copy to clipboard 
' save protocol in new file

Application.DisplayAlerts = False 'saving as .txt gives error about vb project cant be saved, this stops that alert

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)

Dim filenameonly As String

Dim filenamepath As String

fd.AllowMultiSelect = False

Dim FileChosen As Integer

FileChosen = fd.Show

If FileChosen <> -1 Then 'if no name selected to save this cancels process

     MsgBox "Cancelled"

     Range("a1", "P200").ClearContents

Else

    filenamepath = Mid(fd.SelectedItems(1), InStrRev(fd.SelectedItems(1), "\") + 1)

    filenameonly = Left(filenamepath, InStr(filenamepath, ".") - 1)

    ActiveSheet.Copy

    ActiveWorkbook.SaveAs fd.SelectedItems(1), FileFormat:="vbtab" ' Here is where i need the correct code. vbTab doesnt work

    Workbooks(filenameonly).Close savechanges:=False

    Application.DisplayAlerts = True 'resets alerts after saving

    Range("a1", "P200").ClearContents