I have a macro, and it is only pulling the one macro to print. The formula is not continuing onto the next one. I'm newer at writing code. I've done this both ways using the Call function and just adding the subs into once macro....
Sub RunAll()
FW
bonbon
End Sub
Sub ShocoChoc()
If IsDate(Range("a4").Value) Then
Sheets("Working").Select
Range("A4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("C7:C9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("E7:E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("F5:H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sheet2").PrintOut From:=1, to:=1, copies:=1
Sheets("sheet2").Range("a11:c18, b4:b7, a22:c28").ClearContents
End If
Call bonbon
Sub bonbon()
If IsDate(Range("a13").Value) Then
Range("A13").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("B13").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("C14:C17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("E14:E17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("F13:h17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sheet2").PrintOut From:=1, to:=1, copies:=1
Sheets("sheet2").Range("a11:c18, b4:b7, a22:c28").ClearContents
End If
Call FW
End Sub
Sub RunAll()
FW
bonbon
End Sub
Sub ShocoChoc()
If IsDate(Range("a4").Value) Then
Sheets("Working").Select
Range("A4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("C7:C9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("E7:E9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("F5:H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sheet2").PrintOut From:=1, to:=1, copies:=1
Sheets("sheet2").Range("a11:c18, b4:b7, a22:c28").ClearContents
End If
Call bonbon
Sub bonbon()
If IsDate(Range("a13").Value) Then
Range("A13").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("B13").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("C14:C17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("E14:E17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Working").Select
Range("F13:h17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sheet2").PrintOut From:=1, to:=1, copies:=1
Sheets("sheet2").Range("a11:c18, b4:b7, a22:c28").ClearContents
End If
Call FW
End Sub