Would like to select cell A1 every time a workbook is opened...

[MistakesWereMade]

I have a program that opens up various workbooks, and I would like to have A1 automatically selected after a workbook is opened.

My code is below. The opened excel file's name is saved as variable "OpeningVar".

Private Sub CommandButton1_Click()
    
    Dim Wbk As Workbook
    Dim Pth As String
    Dim myRange As Range
    
    Set myRange = ThisWorkbook.Worksheets("Data").Range("E2")
    
    Pth = Environ("Userprofile") & "\Desktop\w34\PS\"


    OpeningVar = Me.ComboBox1.Value


    Me.ComboBox1.Clear
    myRange.Clear
    
    On Error Resume Next
    
    Set Wbk = Workbooks.Open(Pth & OpeningVar)
   
    On Error GoTo 0
   
    If Wbk Is Nothing Then
        MsgBox "Workbook not found."
    End If
    
End Sub

 

[Trevor_S]

After the Set Wbk... line, add:

Wbk.ActiveSheet.Range("A1").Select

 

[MistakesWereMade]

Awesome! I'm not sure why I wasn't able to make such simple code... I appreciate it!