Dear all
I wrote following code
Sub Macro2()
Sheets("PRINT").Select
With ActiveSheet.UsedRange
lk = .Rows(.Rows.Count).Row
End With
For a = 1 To lk
san = Range("b" & a).Value
san2 = "'" & san & "'!" & Range("c" & a).Value
Range("e" & a).Select
ActiveCell.FormulaLocal =...