DeBug error

Like this.

    With Sheets("TP QA Form")
        filename1 = .Range("D9").Value & _
                    .Range("G13").Value & _
                    .Range("H13").Value
    End With

This will most likely give you an error since G13 and H13 are Date and Time values that will need replacing the / and : marks but it will give you a general idea.