Sheets(fName).Copy
ActiveSheet.Unprotect (pWord)
With Range("A1", Range("A1").End(xlUp))
.Copy
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
End With
Sheets("Weekly Summary Report").Range("A30").Formula = "=hyperlink(""\\Poaabc04\regional programming\RBS Prime Data\RBS Productivity & KPI Measurement"",""For more details: Click here"")"
Range("A1").Select
|