Sub Проверка_на_флэшку()

'Stop
Dim x As String, y As String, z As String, flash As String, a As String

x = "F:\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ.xls" 'Путь и имя файла
y = "G:\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ.xls"
z = "H:\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ.xls"
a = Left(ActiveWorkbook.Path, 3) 'Буква диска рабочего открытого файла
          If Dir(x) <> "" Then flash = Left(x, 3) 'Если файл на флэшке найден то переменной присваивается буква диска
          If Dir(y) <> "" Then flash = Left(y, 3)
          If Dir(z) <> "" Then flash = Left(z, 3)
'Если флэшка есть
If flash <> "" Then
'Если открыт файл с флэшки
If a = flash Then
If MsgBox("ШЕФ! ВЫ ХОТИТЕ СОХРАНИТЬ ЭТОТ ФАЙЛ НА ДИСК?", vbYesNo) = vbYes Then
ActiveWorkbook.SaveCopyAs "C:\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ1.xls"
End If
End If
'Если открыт файл на диске
If a = "C:\" Then
If MsgBox("ШЕФ! ВЫ ХОТИТЕ СОХРАНИТЬ ЭТОТ ФАЙЛ НА ФЛЭШКУ?", vbYesNo) = vbYes Then
ActiveWorkbook.SaveCopyAs flash & "РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ\РАСЧЕТ ТЕПЛОВОЙ ЭНЕРГИИ1.xls"
End If
End If
End If

End Sub