Sub Activate_Hidden()
Sheets("Sheet3").Activate
Range("F6").CurrentRegion.Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub
Sub ReferTo_Hidden()
With Sheets("Sheet3")
.Range("F6").CurrentRegion.Copy Destination:=Sheets("Sheet1").Range("A1")
End With
End Sub