how to provide title bar for file browsing

[ThrottleWorks]

Hi,
Am using below code to browse files. I am not able to provide 'Title' option while browsing.
Can anyone please help me to provide 'title' option in below code.

Sub brws1()
    Dim rw As Integer
    Dim cl As Integer
    Dim Flocation As Variant
    
    rw = 6
    cl = 3
    
    Flocation = Application.GetOpenFilename()
    If Flocation <> False Then
        fName = Flocation
    End If
    
    If fName <> False Then
            Mac.Cells(rw, cl).Value = fName
        Else
            Mac.Cells(rw, cl).Value = ""
            MsgBox "You haven't selected any file."
            Exit Sub
    End If
End Sub

 

[p45cal]

Flocation = Application.GetOpenFilename(Title:="Anything you want")

See https://docs.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename

 

[ThrottleWorks]

Hi @p45cal thanks a lot for the help.