Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
Sub SplitWorkbook()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
sht.Copy
MsgBox "Filename: " & sht.Range("B2")
ActiveWorkbook.SaveAs Filename:="Z:\Flex Rate\Macro\" & sht.Range("B2")
ActiveWorkbook.Close SaveChanges:=False
Next sht
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
pls try
Open in new window
Regards