need to runt his macro twice for it to work

[daveyc18]

this might be a a tricky one since not eveyrone here is famialr with ADP/Broadridge.

    Dim ws As Worksheet
    Dim tmp As Worksheet
    Dim acct As String
    


    
    
    Set ws = Sheets("Booking")
    Set tmp = ThisWorkbook.Worksheets.Add
    tmp.Activate


    On Error Resume Next
    AppActivate "BTS", True
    On Error GoTo 0
    Sleep 1000
    
 
    On Error Resume Next
    
     
     
     
     
    SendKeys "MRGN", True 'enter margin
    Sleep 500
    SendKeys "^", True 'reset
    Sleep 500
    SendKeys "40911025", True ' enter account number
    SendKeys "{F3}", True 'get balance secreen
    Sleep 750 'waits X seconds
   SendKeys "^{INSERT}", True 'copy
    Sleep 100
    tmp.Activate
    
  tmp.Range("A1").Select
     tmp.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
     
    
            ws.Range("I7") = Trim(Left(tmp.Range("A7"), 13)) 'GetEquity
            ws.Range("I9") = Trim(Left(tmp.Range("A9"), 13)) 'GetMM
            ws.Range("I11") = Trim(Left(tmp.Range("A11"), 13)) 'GetDebt
            ws.Range("I13") = Trim(Left(tmp.Range("A13"), 13)) 'GetL250
            


 
    
 
    Application.DisplayAlerts = False
    
    
    
   tmp.Delete
   
   
   
   
   
      Application.DisplayAlerts = True
    Application.ScreenUpdating = True
      
      
   Sheets("Booking").Activate