Hello everyone! I am new in VBA and need some help with my coding.

I have a program which searches for similar words in the workbook when I enter a word in any cell, and then replaces it (for example, I type "Marke" and then program finds next similar word to it "Market" and automatically replaces "Marke" to "Market".

However what I need to have ideally is a popping up box with the list of similar words found, so I can click on the one I need to be returned in the original cell where I first enetered a word
(In the example above after enering a word "Marke" a listbox would popup with words such as "Market", "Market rules", "Entereing the Market", and then I can click on, say, "Market rules", and it will replace the original "Marke" to "Market rules".
Any ideas how I can do it? Any help would be appreciated!

Here is what I have so far:

Sub Macro14()
Dim datatoFind
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer
Dim PrevCell As Range
On Error Resume Next
currentSheet = ActiveSheet.Index
datatoFind = ActiveCell.Value
If datatoFind = "" Then Exit Sub
sheetCount = ActiveWorkbook.Sheets.Count
If IsError(CDbl(datatoFind)) = False Then datatoFind = CDbl(datatoFind)
For counter = 1 To sheetCount
Sheets(counter).Activate
Set PrevCell = ActiveCell
Cells.Find(What:=datatoFind, After:=ActiveCell, LookIn:=xlFormulas, Lookat _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
‘If ActiveCell.Value Like "*" & datatoFind & "*" Then MsgBox "Value found"
'PrevCell.Value = ActiveCell
Next counter
If ActiveCell.Value <> datatoFind Then
MsgBox ("Value not found")
Sheets(currentSheet).Activate
End If
End Sub