Opening or activate files using macro

[Ringo71]

Is there a way to have a macro find if a workbook is open before running code to open the file and skip opening if it is and vice versa?

This is a sample of something that i tried and failed

If (Windows("Gator.xlsm").Activate = False) Then Workbooks.Open Filename _
:= _
"https://d.docs.live.net/7c26cd2da69fba08/Documents/Johnny%Gator%20Docs/Gator%20Data%202013.xlsm", UpdateLinks:=0
If (Windows("Gator Data 2013.xlsm").Activate = True) Then Windows("Gator Data 2013.xlsm").Activate

Also, I've seen some people insert a copy of their vba code how is that done?

Thank you
Ringo

 

[JoeMo]

You can call this function from the macro that opens the workbook to see if it is already open.

Function WorkbookOpen(WorkBookName As String) As Boolean
' returns TRUE if the workbook is open
    WorkbookOpen = False
    On Error GoTo WorkBookNotOpen
    If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
        WorkbookOpen = True
        Exit Function
    End If
WorkBookNotOpen:
End Function