placement of comments (resolved)

Solution =
Range("G" & nbr).Comment.Shape.Placement = xlFreeFloating

I have thousands of comments that need to have the comment property changed from "Move but don't size with cells", to "Don't move or size with cells". I recorded the change, but haven't been able to find the syntax on how to change the property in a program. F8ing through the code comes up with an error at the .placement line, saying its not supported.

Sub Macro14()
'
dim comm as string
dim nbr as integer
nbr = 1
while nbr < 2000
Range("G" & nbr).Select
comm = Range("G" & nbr).Comment.Text
With Selection
.Placement = xlFreeFloating
.PrintObject = True
End With
nbr = nbr + 1
wend
End Sub