Sub Test()
Dim rngData As Range
Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
rngData = Evaluate(rngData.Address & "*2")
End Sub
Kind of outdated but is that what you were looking for ?
More Related Contents:
- How to color all the rows based on the cell values
- Loading addins when Excel is instantiated programmatically
- Excel’s fullname property with OneDrive
- How to insert an embedded picture?
- Copy Excel range as Picture to Outlook
- Obtain attribute names from XML using VBA
- Return RGB values from Range.Interior.Color (or any other Color Property)
- Translate text using vba
- Run-time error ‘1004’ : Method ‘Range’ of object’_Global’ failed
- “Can’t find Project or Library” for standard VBA functions
- How do I issue an HTTP GET from Excel VBA for Mac
- Copy sheet and get resulting sheet object?
- Sending mail using Outlook where the Send method fails
- How do I apply a SumIf Formula in a VBA Sub? Getting Error 1004
- Using a variable for row in (row,column) for a range in VBA
- Export chart as image – with click of a button
- How to get the path of current worksheet in VBA?
- Excel VBA to match and line up rows
- Change font color for a part of text in cell
- Create a new object using the text name of the class
- Excel cell from which a Function is called [duplicate]
- How to extract text within a string of text
- GET pictures from a url and then rename the picture
- How to implement custom iterable class in VBA
- move files from one folder to another
- How can I loop through a subset of worksheets?
- How to run a string as a command in VBA
- How to find Number of Occurences of Slash from a strings
- How to Send Email When Computer is Locked?
- VBA, Combine PDFs into one PDF file