A ešte ak si do kódu Formulára doplníš:

Private Sub txtPrijmeni_Afterupdate()
    Sheets("Seznam").Range("C" & spbPorC + 1) = UCase(txtPrijmeni)
End Sub

tak Příjmení môžeš písať malými písmenami, po zadaní příjmení sa to samé skonvertuje na veľké písmená.

P.S. a nauč sa, že údaje sa nezadávajú s medzerami na konci!