:This is my code where I want to paste data into cells that are hidden in the workbook but its not workingAny help appreciated![]()
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")
Bookmarks