One way:

Dim i As Integer
Dim sFileName As String
For i = 1 To 26
'Debug.Print Chr(i + 64)
sFileName = Chr(i + 64)
Kill sFileName
Next 'i

or just:

For i = 1 To 26
Kill Chr(i + 64)
Next 'i


Regards

Trevor


wrote in message
oups.com...
Does anyone know how to make a do loop with letters?

I.E

For (filename = A to Z)
delete filename
End loop

Thanks in advance.