bamaisgreat
Well-known Member
- Joined
- Jan 23, 2012
- Messages
- 821
- Office Version
- 365
- Platform
- Windows
I am trying to print a spreadsheet without it printing the text that is in a specific cell. I am currently using the macro below but would like this added if possible. the specific cell i do not want the text to print is P7.
Code:
Sub ArchiveIt()
Dim NR As Long
NR = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & NR).Value = Sheets("BURN").Range("B5").Value
Sheets("Sheet2").Range("B" & NR).Value = Sheets("BURN").Range("J4").Value
Sheets("Sheet2").Range("C" & NR).Value = Sheets("BURN").Range("B7").Value
Sheets("Sheet2").Range("D" & NR).Value = Sheets("BURN").Range("J5").Value
Sheets("Sheet2").Range("E" & NR).Value = Sheets("BURN").Range("B6").Value
Sheets("Sheet2").Range("F" & NR).Value = Sheets("BURN").Range("J6").Value
Sheets("Sheet2").Range("G" & NR).Value = Sheets("BURN").Range("L16").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("c11").Select
Selection.ClearContents
End Sub