:This is my code where I want to paste data into cells that are hidden in the workbook but its not working
Sub UpdateTeam()


Dim wb As Workbook

     
    
             ChDir ThisWorkbook.Path
             ChDrive ThisWorkbook.Path
        
         
            
            X = Application.GetOpenFilename _
            
            If X = False Then GoTo Cancel
          Application.ScreenUpdating = False
'            Workbooks.Open Filename:= _
'            X
    
        Set wb = Workbooks.Open(Filename:=X)
        
        wb.Sheets("Holidays").Range("C6:C22").Copy Destination = ThisWorkbook.Sheets("Summary").Range("C6:C22")
Any help appreciated