Never mind, I figured it out. I had tried some of this which I had derived
searching Google, but couldn't get it to take. Finally got it to.
Private Sub Command0_Click()
ChDir ("c:\TEMP\") ' Not sure if I need this
Dim x As Integer, y As String, z As String
For x = 5216 To 5282
y = "C:\TEMP\webpic_DSCN" & x & "_rz.jpg"
' At first I thought I needed """" at the beginning & end--literal
quotes--for y & z, but I don't
z = "C:\TEMP\webpic_dscn" & x & "_rz.jpg"
Name y As z
Next x
End Sub
I was renaming webpic_DSCN5216.jpg to webpic_dscn5216.jpg (lowercase letters
for web usage) and doing that for 135 files numbering 5216 to 5282 (with a
small gap near the end). The above code was in a command button (naturally,
the Private Sub and End Sub statements are repetitive).
LRH