Private Sub CommandButton1_Click()
Dim rng As Range
Dim rw As Integer
Dim dest As String
With Selection
If [E6 = E47] Then
[G51].Value = [G47 - E6]
End If
Range("B6:G6").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub
The long and the short of it is it's not
performing the subtraction, but it does the
copy and paste
Any help would be appreciated
James
Dim rng As Range
Dim rw As Integer
Dim dest As String
With Selection
If [E6 = E47] Then
[G51].Value = [G47 - E6]
End If
Range("B6:G6").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub
The long and the short of it is it's not
performing the subtraction, but it does the
copy and paste
Any help would be appreciated
James