Code not drawing data for printing

D

Dean

Hi All, Hoping I could get some help with this code (It's got me beat).
I am using it on XL97 and the code will print out blank pages but no
data.

Originally the code was generating a runtime error 13 type mismatch
error so I did some research and added this code to overcome the error:


If IsNumeric(ActiveCell.Offset(0, 14)) Then
If ActiveCell.Offset(0, 14).Value <> 0 Then
End If
End If

I would really appreciate some advice on what I am missing here?

Many Thanks,
Dean


Sub Macro4()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Unprotect Password:="XXXXXX"
MsgBox "Labels Spooled to Printer" & Chr(13) & "Click OK to Proceed" &
Chr(10)
LR = Range("B991").End(xlUp).Row ' Determine the last used row
For Each cell In Range("B1:B" & CStr(LR))
Rows(cell.Row).EntireRow.Hidden = True
If IsNumeric(ActiveCell.Offset(0, 14)) Then
If ActiveCell.Offset(0, 14).Value <> 0 Then
End If
End If
Next cell
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
ActiveSheet.Protect Password:="XXXXXX"
Application.Run Macro:="Macro6"
End Sub
 

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

Runtime error 91: Object variable or With block variable not set 8
My macro doesn't work if sheet is protected but it works if not protected 2
Word macro that can call cells out of Excel for a find and replace 0
Small runtime error - advice required 1
VBA for Dependents shortcut menu 0
MACRO Effeciency 3
Remove Identical words 0
works in 2007 but not in 2010 0

Top