Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim startDatePriceLocation As Range, st_raOne As String
st_raOne = "raOne"
Application.ScreenUpdating = False
If Intersect(ActiveCell, Range("O16")) Is Nothing Then
Else
'Reset 1st Months Formulas
Call resetStartDateFormulas
Set startDatePriceLocation = [startLoc]
Sheets("BasketCase").Select
Range("D16").Select
Selection.Copy
Sheets("consolchartingdata").Select
startDatePriceLocation.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
I'm trying to get the above code to copy and paste a price into a cell on another page whos range is set by a cell containing an indirect value. Can anyone assist me?VBAIndirectrResetsStartingDateCopyPaste.xlsb
Bookmarks