Microsoft VBA 7 - MSEdge find tab and bring to front
Attribute VB_Name = "MS_Edge" Option Explicit Option Compare Text #If VBA7 Then Private Declare PtrSafe Function EnumWindows Lib "user32" ( ByVal lpEnumFunc As LongPtr , ByVal lParam As LongPtr ) As Long Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ ( ByVal hwnd As LongPtr , ByVal lpString As String , ByVal cch As Long ) As Long Private Declare PtrSafe Function IsWindowVisible Lib "user32" ( ByVal hwnd As LongPtr ) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hwnd As LongPtr , ByVal nCmdShow As Long ) As Long Private Declare PtrSafe Function SetForegroundWindow Lib "user32" ( ByVal hwnd As LongPtr ) As Long Private Declare PtrSafe Function IsIconic Lib "user32" ( ByVal hwnd As LongPtr ) As Long #Else ...