Hello all,
I was wondering if someone could help me change the code below to print the named ranges (within my workbook) instead of the sheets as shown below:
Private Sub CheckBox1_Click()
End Sub
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Sheets("Sheet1").PrintOut Copies:=1
If CheckBox2.Value = True Then Sheets("Sheet2").PrintOut Copies:=1
If CheckBox3.Value = True Then Sheets("Sheet3").PrintOut Copies:=1
If CheckBox4.Value = True Then Sheets("Sheet4").PrintOut Copies:=1
Unload UserForm1
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
CheckBox1.Caption = Sheets("Sheet1").Name
CheckBox2.Caption = Sheets("Sheet2").Name
CheckBox3.Caption = Sheets("Sheet3").Name
CheckBox4.Caption = Sheets("Sheet4").Name
End Sub
Any help would be greatly appreciated!
I was wondering if someone could help me change the code below to print the named ranges (within my workbook) instead of the sheets as shown below:
Private Sub CheckBox1_Click()
End Sub
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Sheets("Sheet1").PrintOut Copies:=1
If CheckBox2.Value = True Then Sheets("Sheet2").PrintOut Copies:=1
If CheckBox3.Value = True Then Sheets("Sheet3").PrintOut Copies:=1
If CheckBox4.Value = True Then Sheets("Sheet4").PrintOut Copies:=1
Unload UserForm1
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
CheckBox1.Caption = Sheets("Sheet1").Name
CheckBox2.Caption = Sheets("Sheet2").Name
CheckBox3.Caption = Sheets("Sheet3").Name
CheckBox4.Caption = Sheets("Sheet4").Name
End Sub
Any help would be greatly appreciated!