Greasle
New Member
- Joined
- Jul 24, 2017
- Messages
- 21
Function GetFullPath() As String
Application.Volatile
GetFullPath = ActiveWorkbook.FullName
End Function
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
With Application
.Calculation = xlManual
.Calculation = xlCalculationAutomatic
End With
End Sub
full path including filename. Just the formula I posted.