VBA: Ignore Open File Dialog Box

[donatepresent]

Hi Experts,

I'm trying to paste the below code, but I want it to not popup the 'open file dialog box' because I have another line of code that copy & paste this code and that pop up the open file dialog box, so I do not want it to popup twice. Therefore, I need it to either ignore the first or second popup of the open file dialog box.

    ActiveCell.FormulaR1C1 = _
        "=IFERROR(HLOOKUP(R[-38]C,'[FileToOpen = Application.GetOpenFilename]Programs'!R6C4:R41C55,36,FALSE),"""")"

Full code:

    With ActiveWorkbook.Sheets("Sheet2")
    Range("D44").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(HLOOKUP(R[-38]C,'[FileToOpen = Application.GetOpenFilename]Programs'!R6C4:R41C55,36,FALSE),"""")"
    End With

    Range("D44").Select
    Selection.Copy
    Range("D43").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(1, 0).Activate
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Style = "Comma"

Thanks,
Ken

 

[Fluff]

How about

    With ActiveWorkbook.Sheets("Sheet2")
      With .Range("D44", Cells(43, Columns.count).End(xlToLeft).Offset(1))
         .FormulaR1C1 = _
           "=IFERROR(HLOOKUP(R[-38]C,'[FileToOpen]Programs'!R6C4:R41C55,36,FALSE),"""")"
         .Style = "Comma"
      End With
    End With

 

[donatepresent]

How about

    With ActiveWorkbook.Sheets("Sheet2")
      With .Range("D44", Cells(43, Columns.count).End(xlToLeft).Offset(1))
         .FormulaR1C1 = _
           "=IFERROR(HLOOKUP(R[-38]C,'[FileToOpen]Programs'!R6C4:R41C55,36,FALSE),"""")"
         .Style = "Comma"
      End With
    End With

You are a saint! Thank you very much!

 

[Fluff]

You're welcome & thanks for the feedback.