Add character to text 1

[vba317]

I need to add a hyphen in the 6th character to a column of data. I have 232 cells in this column.
My code does not give me any errors but it also does not insert anything. Any help would be appreciated.

Sub dashSN()
'

Dim myString As String

' dashSN Macro
'
For i = 2 To 232
       Cells(i, 1).Select
    myString = "-"
   Midwords = Mid(myString, 6, 7)
    
Next i
'
    
End Sub

 

[SkipVought]

hi,

Sub dashSN()
    Dim i
    Const myString = "-"
    
    ' dashSN Macro
    '
    For i = 2 To 4
        With Cells(i, 1)
            .Value = Mid(.Value, 1, 5) & myString & Mid(.Value, 6)
        End With
    Next i
    '
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}