open workbook with specific worksheet

[HKB]

Hi,
I have vb code as under

Sub Macro2()

'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+h
'
    Dim vFile As Variant

    'Showing Text Open Dialog Form
    vFile = Application.GetOpenFilename("Excel Files (*.xlsx)," & _
    "*.xl*", 1, "Select Excel File", "Open", False)

    'If Cancel then exit
    If TypeName(vFile) = "Boolean" Then
        Exit Sub
    End If

    'Open selected file
    Workbooks.Open vFile
    
End Sub

I want to add code that Selected workbook open always with Sheet1 (Sheet1 is a sheet code not Sheet Name) cell "A3"

 

[Belleke]

Not sure what you mean, maybe this?
Sheet(1) is the first sheet in the vFile workbook.

Sub belle()
  Dim vFile As Variant
  vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _
    "*.xl*", 1, "Select Excel File", "Open", False)
  If TypeName(vFile) = "Boolean" Then
        Exit Sub
    End If
  Workbooks.Open vFile
    Sheets(1).Activate
End Sub

 

[Marc L]

Hi !

I want to add code that Selected workbook open always with Sheet1 (Sheet1 is a sheet code not Sheet Name)

For a worksheet codename add this codeline : Sheet1.Activate
​

 

[HKB]

Hi !

For a worksheet codename add this codeline : Sheet1.Activate
​

Thanks Marc L ... It's working fine..

 

[HKB]

Not sure what you mean, maybe this?
Sheet(1) is the first sheet in the vFile workbook.

Sub belle()
  Dim vFile As Variant
  vFile = Application.GetOpenFilename("Excel Files (*.xl*)," & _
    "*.xl*", 1, "Select Excel File", "Open", False)
  If TypeName(vFile) = "Boolean" Then
        Exit Sub
    End If
  Workbooks.Open vFile
    Sheets(1).Activate
End Sub

Thanks Belleke...It's work fine...