Sub test1()
a = Array("B1-001", "B1-002", "B1-101", "B1-102", "B1-201", "B1-202")
For i = 0 To UBound(a)
With Sheets(a(i)).Range("F10")
.Value = Sheets("sheet1").Range("N" & i + 8)
End With
Next
End Sub
Sub test1()
a = Array("B1-001", "B1-002", "B1-101", "B1-102", "B1-201", "B1-202")
For i = 0 To UBound(a)
With Sheets(a(i)).Range("F10")
.Value = Sheets("sheet1").Range("N" & i + 8)
.Parent.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & a(i) & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True
End With
Next
End Sub
ADVERTISEMENT
You are welcome
And thank you for the feedback
Be happy & safe
I am doing something wrong can you please the pathYou are welcome
And thank you for the feedback
Be happy & safe