ник: k@s
Выделил-скопировал -вставил-вылазит ошибка . Где глюк ?
Public Function ClearFiles()
On Error GoTo er
Range("C12:G19").Select
Selection.ClearContents ("c:\1.xls")
Exit Function
er:
MsgBox "Error №" & Err.Number & " " & Err.Description, vbCritical, "Внимание"
End Function