lista suspensa datagrid

[Antonio Carvalho]

Boa noite este é meu primeiro post estou com dificuldade de colocar uma lista suspensa o DataGridusando o Button do DataGrid

Esta função de inicio ela formata em R$ a colula.

Sub Soma_Grid()
  On Error GoTo Trata_Error4
 
   dSoma = 0
   For i = 0 To DataGrid1.VisibleRows - 1
       DataGrid1.Row = i
       dSoma = dSoma + CDbl(DataGrid1.Columns(5))
       DataGrid1.Columns(5).NumberFormat = "R$ ##,##0.00"""
       Me.DataGrid1.Columns(7).Button = True
   '===================== COLOCAR AQUI ============================
         'Uma instrução para definir "SIM" OU "NÃO" no button
   '===============================================================
       Me.DataGrid1.Columns(7).Alignment = dbgCenter
   Next i
   TxtSomaGrid.Text = dSoma
   TxtSomaGrid.Text = Format(TxtSomaGrid.Text, "R$ ##,##0.00")
   TxtValorPromi = TxtSomaGrid.Text
   TxtValorPromi.Text = Format(TxtValorPromi.Text, "R$ ##,##0.00")
   Exit Sub
Trata_Error4:
   MsgBox ("NÃO A LOCAÇÃO PARA ESTE CLIENTE"), vbInformation
   CboListaNomeDuplicPagador.SetFocus

End Sub