EFF20220724_GeoJeff

Sub SaveChecking()
'
' SaveChecking Macro
' Save this file to 3 different drives
Dim myPaths As Variant
Dim myPath As Variant

'list possible folder path
myPaths = Array("F:\checking\", "G:\checking\", "C:\Users\h4usg int'l\Desktop\checking\")

With ThisWorkbook
    'save the current workbook
    .Save

    'loop each path and if it exists save the file
    For Each myPath In myPaths
        If Dir(myPath, vbDirectory) <> vbNullString Then
            .SaveCopyAs myPath & "checking.xlsm"
        End If
    Next myPath
End With
End Sub