Drucken aus Tabelle 2

da bin ich wieder mit einen Neuen Problem:

Ich möchte aus Tabelle2 folgende Felder zum Speichern als Dateinamen nehmen:

Sub Speichern()
Dim DName As String, aktDir As String
Dim a As Byte
a = MsgBox("Wollen Sie wirklich speichern.............................?", vbYesNo)
If a = 7 Then Exit Sub
' Nein wurde gedrückt, besser wäre Ja abfragen, man kann auch das X drücken
ChDir "C:"
Worksheets("Tabelle2").Copy
DName = [H2] & "_" & [E2] & "_" & [F2] & "_" & [B2] & "_" & ".xls"
Worksheets("Tabelle2").SaveAs DName
Worksheets("Tabelle2").Close
End Sub

Irgendwas stimmt noch nicht....

Udo