Automatisk gemmefunktion

Nogle der kan hjælpe med denne....Jeg skal have flettet en celles værdi (Ark1!c6) med i drevangivelsen

Private Sub CommandButton2_Click()
If [Ark1!c28] = "" Then Navn = [Ark1!c10] Else Navn = [Ark1!c28]
If [Ark1!c28] = "" Then drev = "I:\Design\Vareoprettelser\[Ark1!c6]\Logistik\" Else drev = "I:\Design\Vareoprettelser\[Ark1!c6]\Udvikling\"
If MsgBox("Projektmappen gemmes som :  " & drev & Navn & ".xls  er det ok ?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs drev & Navn & ".xls"
End If
End Sub