Convert Text to cells Sentences by Punctuation Marks

[snb]

Sub M_snb()
  sn = Filter(Split(Replace(Replace(Cells(1), "!", "!."), "?", "?."), "."), " ")
  Cells(1, 2).Resize(UBound(sn)) = Application.Transpose(sn)
End Sub