The following will take the value in A1 of sheet1 and put it in A1 ofsheet2.Sub subCopyA1()Dim vlValue as VariantvlValue = Range("A1").ValueWorksheets("Sheet2").ActivateRange("A1").Value = vlValueEnd Sub