During saving a worksheet cells are loosing the links

[sknalodz]

Dear All,

I got strange problem. When i save the worksheet cells are loosing links to other cells.
what is even more surprising it happens only for 6 cells in 6 sheets.

scheme of links
Basic data
P1
P2
P3
P4
P5
P6
On the sheets P1-P6, each cell A1 has a link to Basic data.

[:) Sixthsense :)]

Is there any VBA code in that file?

[sknalodz]

yes, but i have never made any macro with removing links.

Private Sub AddDesignP2_Click()
AddDesignP1.Show vbModeless
End Sub

Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub

Private Sub CommandButton2_Click()
AddDesignP1.Show vbModeless
End Sub



Private Sub CommandButton3_Click()
Dim Path, Sign As String
Path = Sheets("Basic data").Range("D80").Value
'Image1.Picture = Path & Sign & ".jpg"
Set UserForm5.Image1.Picture = LoadPicture(Path)
UserForm5.Show vbModeless
End Sub

Private Sub DesignAdd_Click()
DesignAdd.Show
End Sub

Private Sub SPAP1_Click()

UserForm1.Show vbModeless
End Sub

macros from P2.


and the only one macro in the Basic Data sheet.

Private Sub CommandButton1_Click()
Dim FName As String
Dim FPath As String

FPath = Sheets("Basic data").Range("D81").Text
FName = Sheets("Basic data").Range("U10").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub

but it happens also when i save worksheet via Excel menu...