Offset & Range

[Karen53]

Hi,

I am not sure I can do this. I have tried a few variations and get error
messages.

I am trying to format the 4th column of a range, something like this..

LineItemspg.Range(ItemRange).Offset(0, 4).HorizontalAlignment = xlCenter

Can I do it like this?

 

[Jim Thomlinson]

What are LineItemspg and ItemRange. I assume they are variables or objects of
some sort but if you could post the rest of the code that woud be great...

 

[Karen53]

Hi Jim,

Here is the routine. Thanks.

Sub CopyPasteItems(ItemRange, ItemFCell)

Debug.Print "Starting CopyPasteItems"

Call AddSheets.UnProtectSht(Replace(LineItemspg.Name, "'", "''"))
Range(ItemRange).Copy Destination:=LineItemspg.Range(ItemFCell)
LineItemspg.Range(ItemRange).Offset(0, 4).HorizontalAlignment = xlCenter
Call AddSheets.ProtectSht(Replace(LineItemspg.Name, "'", "''"))

End Sub

 

[JLGWhiz]

Did you try:

LineItemspg.Range(ItemRange).Offset(0, 4).HorizontalAlignment = xlHAlignCenter