Add Dim concaty As String on the line following Sub Concaty()