Free for PREMIUM members
Dim oldworkbook As String
Dim newworkbook As String
oldworkbook = "checkfile.xls"
'Debug.Print InStr(ActiveWorkbook.name, oldworkbook)
If InStr(ActiveWorkbook.name, oldworkbook) > 0 Then
'Workbooks.Add.SaveAs Filename:="c:\temp\" & newworkbook
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.