Problem with defining Range in a With Statement

[JWellar]

New to VBA and I am building reports and with to do things with ROW titles.

I can get individual statements to Bold cells to work but would be much better code to do using with Statement.

This works

OutSheet.Cells(OutLineNum, "A").Font.Bold = True
OutSheet.Cells(OutLineNum, "B").Font.Bold = True
OutSheet.Cells(OutLineNum, "C").Font.Bold = True
OutSheet.Cells(OutLineNum, "D").Font.Bold = True
OutSheet.Cells(OutLineNum, "E").Font.Bold = True
OutSheet.Cells(OutLineNum, "F").Font.Bold = True
OutSheet.Cells(OutLineNum, "G").Font.Bold = True
OutSheet.Cells(OutLineNum, "H").Font.Bold = True
OutSheet.Cells(OutLineNum, "I").Font.Bold = True
OutSheet.Cells(OutLineNum, "J").Font.Bold = True

I have tried various ways of putting With Range.. statements but none seem to work.

OutSheet and OutLineNum are declared as Public

Can someone tell me correct way to do a WITH statement for this.

Much appreciated
John

[xladept]

Hi John,

Welcome to the Forum!

Maybe:

Outsheet.Cells(OutLineNum, "A").Resize(1, 10).Font.Bold = True

[Cerbera]

Also for a contiguous range you could use:

OutSheet.Range(Cells(OutLineNum, "A"), Cells(OutLineNum, "J")).Font.Bold = True

[mikerickson]

Or

OutSheet.Cells(OutlineNum, 1).Range("A1:J1").Font.Bold = True

[JWellar]

Tried both above but maybe I am not using the solutions correctly. Below is the whole Subroutine called by the main sub

Sub WrtHeading()
'Write Heading
Set OutSheet = wbBook.Worksheets(CurGroup)
OutSheet.Cells(OutLineNum, "A") = "Invoice"
OutSheet.Cells(OutLineNum, "B") = "Old Inv*"
OutSheet.Cells(OutLineNum, "C") = "Due Date"
OutSheet.Cells(OutLineNum, "D") = "Invoiced"
OutSheet.Cells(OutLineNum, "E") = "Payment"
OutSheet.Cells(OutLineNum, "F") = "OutStanding"
OutSheet.Cells(OutLineNum, "G") = "0-30 "
OutSheet.Cells(OutLineNum, "H") = "30-60"
OutSheet.Cells(OutLineNum, "I") = "60-90"
OutSheet.Cells(OutLineNum, "J") = "90+ "

'I want to replace the following lines
OutSheet.Cells(OutLineNum, "A").Font.Bold = True
OutSheet.Cells(OutLineNum, "B").Font.Bold = True
OutSheet.Cells(OutLineNum, "C").Font.Bold = True
OutSheet.Cells(OutLineNum, "D").Font.Bold = True
OutSheet.Cells(OutLineNum, "E").Font.Bold = True
OutSheet.Cells(OutLineNum, "F").Font.Bold = True
OutSheet.Cells(OutLineNum, "G").Font.Bold = True
OutSheet.Cells(OutLineNum, "H").Font.Bold = True
OutSheet.Cells(OutLineNum, "I").Font.Bold = True
OutSheet.Cells(OutLineNum, "J").Font.Bold = True


OutLineNum = OutLineNum + 1

End Sub

[HaHoBe]

Hi, JWellar,

please use code-tags around your procedures displayed in both your posts as laid down in Forum Rule #3.

Ciao,
Holger

[xladept]

Tried both above

There are three. ????

[HaHoBe]

Hi, JWellar,,

Your posts do not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger

[JWellar]

Sorry fixed and understand how to post

[romperstomper]

What did you try?

[JWellar]

I have tried replacing "OutSheet... = True" lines with both

Outsheet.Cells(OutLineNum, "A").Resize(1, 10).Font.Bold = True

and then

OutSheet.Cells(OutlineNum, 1).Range("A1:J1").Font.Bold = True

Thanks for any assistance
John

[xladept]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic