View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Command Buttons on Sheet moving with cells

Todd,

Save the position beforehand, and restore it afterwards. Something like

Dim pos1 As Double

With Worksheets("Sheet2")
pos1 = .CommandButton1.Left
.Columns("A:IV").AutoFit
.CommandButton1.Left = pos1
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Todd Huttenstine" wrote in message
...
Hey guys,

I am using the following code supplied by Nigel that
autofits columns based on cell value. The problem is that
my command buttons also move with the movement of the
cells. How do I stop this?

Worksheets("Sheet1").Columns("A:IV").AutoFit
Thanx

Todd