Print only if Cell is non-blank

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am getting an "out-of-range" error on this code:

Private Sub PrintButton1_Click()

If IsEmpty(Worksheets("Sheet1").Range("A8").Value) Then
Worksheets("Sheet1").PrintOut Copies:=1
End If

End Sub

I have a command button set up such that when clicked, the code should check
a certain cell on each sheet of a workbook and print the sheets that have
some value in that cell. Any ideas??
 
subscript out of range for the following code would be an indication the
sheet is not named exactly "Sheet1". There may be a space somewhere in the
name as an example.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Event Triggered in Wrong Sheet 4
Cell values to an array, then array transpose to another workbook 8
CONCATENATE code 2
Excel VBA help: Text file formatting 19
Mandatory cells only if another cell is filled 0
Code does not error but no copy either 4
Save not triggering Before_Save event 2

Back
Top