Kommando knap i EXCEL

Jeg har følgende koder i to knapper:

Rydark = Sub rydark()
'
' rydark Makro
' Makro indspillet 10-09-2002 af DK7141
'
Range("E4:E6,H7,J5:J6,D11:D54,D57:D62,B65:D69,D78:D80,H77:H80,B83:B84").Activate
Selection.ClearContents
'
End Sub



Og


Indsæt i Time = Sub Timereg()
Datasti = "C:\Documents and Settings\smallsystems\Skrivebord\VITUS CRM\Prologic\Pro TIMEREG VERSION 97.mdb"
  ' Lav en forbindelse til Access databasen
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=" & Datasti & ";"
    ' Åben et recordset
    Set rs = New ADODB.Recordset
    rs.Open "timeregistrering", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    ' alle records i en tabel
   
        With rs
           
            .AddNew ' tilføj ny record

           
            ' tilføj værdier til hvert felt i recorden
            .Fields("Medarbejderid") = Range("E7").Value
            .Fields("Projektid") = Range("C5").Value
            .Fields("Dato") = Range("J4").Value
            .Fields("Salgstal") = Range("G72").Value
            .Fields("Kunde") = Range("E4").Value
            ' tilpas til aktuel tabel
            .Update ' gem den nye record
           
        End With
    rs.Close ' luk skidtet
    Set rs = Nothing
    cn.Close ' også her
    Set cn = Nothing
    ' slut prut finale

End Sub


Nu vil jeg meget gerne have lavet det sådan at der i en og samme knap skal se følgende:

Udskriv ark - Her skal der komme en meddelsesboks, hvor man bliver spurgt efter om data er korrekt - Man skal her have mulighed for at trykke ok el. annulere

Herefter skal den automatisk afspille koden omkring indsæt time i Access

og sidste men ikke mindst skal den ryd mit ark ... Er dette mulig?