With...End with Suggestion

[VBABEGINER]

Good evening All,

Is this syntax wrong? I really dont understand why i am getting error.

Error - Invalid or Unqualified reference

Cells(fn, "B") = "LOAD SUMMARY:"

With .Range(.Cells(fn, "B"), .Cells(fn, "C"))
.Merge
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With

Can any one suggest? I am trying r&d from last 1 n 1/2 hours.

 

[RoryA]

That would only work if it is within another With ... End With block that is holding a reference to a worksheet object. If not, then:

With Range(Cells(fn, "B"), Cells(fn, "C"))
.Merge
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With

 

[kpark91]

depends what fn is.
also, you use With like this

With Worksheets("HELLO")
    With Range(Cells(fn, "B"), Cells(fn, "C"))
        .Merge
    End With
End With

when you have a period (.) it means there is a 'parent' object which specifies which object it belongs to.
So, in your case, it was trying to find a explicitly stated parent object (worksheet) but you have not specified it.

It would also work without the period at the front if the code is in a worksheet module.

 

[jim may]

REmove all the "."'s in your line:

With .Range(.Cells(fn, "B"), .Cells(fn, "C"))