Private Sub CommandButton3_Click()

If TxtPrevisto.Text = "" Then
    MsgBox ("Campo Vazio!")
Else
    Range("D2").Value = TxtPrevisto.Text
End If

MetaEHS.LabelEdit = lvwManual

    With MetaEHS


        .SelectedItem.SubItems(3) = TxtPrevisto.Text
        .SelectedItem.SubItems(4) = TxtRealizado.Text


    End With


End Sub