Macro to save 4 other open workbooks

[Caveman1964]

I received great help from Fluffy yesterday. I've been working all morning and just can't figure this out, its a mess. I am a beginner and putting in time to learn but running out of time. It doesn't help that I am not the sharpest tool in the shed. I appreciate any and all help.
I want to;
Save 4 other open workbooks from a main workbook. Each workbook takes its file name from a cell value + its workbook name.
I want to click a button from;
"Main Workbook", it creates a subfolder under "Job Packets" using value from cell H5, it then saves "workbook1", "workbook2", "workbook3", and "workbook4" using cell H5 as its name + workbook1. (note:, each workbook will have same value in cell H5)
meaning example, cell value from H5 is 123456, the workbook1 saves in a folder as 123456workbook1.I don't need any prompts, just want it done automatically.
so, after the macro has ran, I should be able to go into file explorer and see;
F:\Job Packets\123456\123456workbook1.xlsm
123456workbook2.xlsm
123456workbook3.xlsm
123456workbook4.xlsm

F:\Job Packets\ will always stay. The subfolders changes on job numbers and each job number will have 4 workbook files under it.

The current macro for just one sheet is as below, I got help completing it yesterday.

Sub CreateFolderAndCopy()
Dim fileName As String
With Sheets(1)
If .Range("H5").Value = vbNullString Then Exit Sub
On Error Resume Next
MkDir "F:\Job Packets" & .Range("H5").Value
On Error GoTo 0
Dim NewFN As Variant
NewFN = "F:\Job Packets" & .Range("H5").Value & "" & .Range("H5").Value & "workbook1" & ".xlsm"
ActiveWorkbook.SaveAs NewFN, FileFormat:=52
ActiveWorkbook.Close
End With

End Sub

Ahead of time, Thank You!

 

[Caveman1964]

Re: Macro to save 4 other open workbooks Need HELP!

Actually, the code for one sheet is this one.

Dim fileName As String
With Sheets(1)
If .Range("H5").Value = vbNullString Then Exit Sub
On Error Resume Next
MkDir "F:\Job Packets" & .Range("H5").Value
On Error GoTo 0
Dim NewFN As Variant
NewFN = "F:\Job Packets" & .Range("H5").Value & " \ " & .Range("H5").Value & "workbook1" & ".xlsm"
ActiveWorkbook.SaveAs NewFN, FileFormat:=52
ActiveWorkbook.Close
End With

 

[Caveman1964]

Re: Macro to save 4 other open workbooks Need HELP!

I figured it out....finally.