Excel Comments – Macros

Excel Comments – Macros

Source: Excel Comments – Macros

‘Kudos: https://www.contextures.com/xlcomments03.html
Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 5
Next
End Sub
Sub Comments_AutoSize()
‘posted by Dana DeLouis 2000-09-16

Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
‘ An adjustment factor of 1.1
‘ seems to work ok.
.Shape.Height = (lArea / 200) * 1.1
End If
End With
Next ‘ comment
End Sub

Advertisements

Not quite ready: P&G pushes opening back to end of February

http://www.journal-news.net/news/local-news/2018/01/not-quite-ready-pg-pushes-opening-back-to-end-of-february/

MARTINSBURG — Procter & Gamble is moving the opening of its consumer home products manufacturing facility at Tabler Station in Berkeley County to the end of February, said a company spokesman Monday.

When first announced in 2015, the personal products plant was tentatively slated to open by December 2017. In September, officials said the date was moved to January.

The plant will initially provide 300 jobs, then employ 400 more workers when completed by the end of 2019, officials said.

P&G Communications Director Jeff LeRoy said the shift to February is still within the company’s originally projected three-month window.

“We had targeted the January-Feb-March quarter,” said LeRoy in an e-mail. “I don’t think there is any major reason other than as we got closer the date became more precise.”

The Cincinnati, Ohio-based company is spending an estimated $500 million over the next five years to build the facility.When done, the site will produce an assortment of consumer products, including Bounce dryer sheets, Olay Body Wash, Pantene and Head & Shoulders shampoo.

Berkeley County Council members are scheduled to tour the plant grounds on Thursday.

A ribbon-cutting ceremony is slated for March1, LeRoy said.

Staff writer Jim McConville can be reached at 304-263-8931, ext. 215, or Twitter@jmcconvilleJN.