CODEWITHSUNDEEP
excelvbaoutlook
AnthonyM
AnthonyM

Reputation: 3

VBA "Invalid Qualifier" Error on Sub name

I'm in the early stages of creating an Excel workbook that will allow you to generate and send Outlook emails based on client data in the workbook using VBA. However, I'm getting a Compile Error for "Invalid Qualifier" in the Sub declaration line.

My problem code (sourced from here):

'Get file path and put it in the proper cell
Sub GetFilePath()

    Dim DialogBox As FileDialog
    Dim path As String

    Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)

    DialogBox.Title = "Select quarterly report for " & Range("A" & ActiveCell.Row) & _
        " " & Range("B" & ActiveCell.Row)
    DialogBox.Filters.Clear
    DialogBox.Show

    If DialogBox.SelectedItems.Count = 1 Then
        path = DialogBox.SelectedItems(1)
    End If

    Range("D" & ActiveCell.Row) = path
    Range("D").Column.AutoFit

End Sub

The basic gist of this is to get it to prompt the user to select a file then to put that file path in a cell so I can use it as an attachment in the Outlook window later.

This ran correctly the first time but will no longer work and throws the "Invalid Qualifier" error on the Sub name line.

Problem line highlighted in debugger

I have tried:

Upvotes: 0

Views: 456

Answers (1)

BigBen
BigBen

Reputation: 50008

The problematic line is:

Range("D").Column.AutoFit
  • "D" is not a valid address for Range: should be "D:D".
  • Column is the column number, not a reference to the entire column.

To fix:

Range("D:D").EntireColumn.AutoFit

or

Columns("D").AutoFit

Upvotes: 0

Related Questions