Você precisaria converter a variável i
de um tipo inteiro para um tipo de string primeiro, usando a função CStr
que deveria fazer o trabalho: -
Sub CopyCells()
For i = 1 To 500
Workbooks.Open Filename:="file" + CStr(i) + ".do"
Next i
End Sub