Kontrolelement med gemmefunktion.

Private Sub CommandButton1_Click()
If [Ark1!b2] = "" Then navn = [Ark1!b1] Else navn = [Ark1!b2]
If [Ark1!b3] = 1 Then drev = "C:\" Else drev = "D:\"
ThisWorkbook.SaveAs drev & navn & ".xls"
End Sub

eller

Private Sub CommandButton1_Click()
If [Ark1!b2] = "" Then navn = [Ark1!b1] Else navn = [Ark1!b2]
If [Ark1!b3] = 1 Then drev = "C:\" Else drev = "D:\"
If MsgBox("Projektmappen gemmes som :  " & drev & navn & ".xls  er det ok ?", vbYesNo) = vbYes Then
ThisWorkbook.SaveAs drev & navn & ".xls"
End If
End Sub

Tusind tak....virker perfekt....lægger du lige et svar?

ok velbekom