pro cyklus while napr:

Kód:
Do
retezec_1 = inputString
' jakykoliv 
' dalsi 
' kod
Loop Until ActiveSheet.Cells(x, y).Value = ActiveSheet.Cells(x, y).Value
staci?