I am using the following code to export visible excel sheets to a pdf. After it run all the activex command buttons have shifted locations and size. If I close the WB without saving then they return to their normal location and size. Does anyone have any ideas what may be causing this or how to fix it? I have tried stopping screen updates and saving the WB before the code runs but it still occurs. Help???

"Sub ExportAsPdf()
Dim FolderPath As String
Dim FName As String
Application.ScreenUpdating = False 'Stop Screens from updating while running code
Call SaveWB

Sheets("Baseline").Select
FName = "Finance" & Range("M38").Value

'Folder Path set to active users profile My Docments folder
FolderPath = Environ$("UserProfile") & "\My Documents\"
'MsgBox (FolderPath)
'MsgBox (FName)
'MkDir FolderPath

'Export all visible sheets
For Each ws In Sheets
If ws.Visible = -1 Then
ws.Select Not flg
flg = True
End If
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & FName, _
openafterpublish:=False, ignoreprintareas:=False

'MsgBox ("all PDFs have been sucessfully exported.")

Application.ScreenUpdating = True
End Sub
"