всем добрый день!
Есть вот такой код. Но все дело в том, что в активной ячейке находится значение вычисляемое формулой и соответственно при копировании ячейки копируется формула, а надо что бы подставлялось значение.
Заранее благодарю за помощь!

rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("календарь").Unprotect Password:="1234"

ActiveCell.Value.Copy Sheets("спец").Range("D2")

With Sheets("спец")
.Visible = xlSheetVisible
.PrintPreview
.Visible = xlSheetVeryHidden
End With
Me.Select
Cancel = True
Sheets("календарь").Protect Password:="1234", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFiltering:=True, AllowFormattingCells:=True, AllowSorting:=True, AllowUsingPivotTables:=True
End Sub

Shocker.Pro,
ОК. учту.

Shocker.Pro,
именно! спасибо огромное!