hemantmohan.1
New Member
- Joined
- Oct 26, 2010
- Messages
- 30
Hi Team, The macro below helps in copying the data from an excel file to a new file which is opened automatically and pastes the data as values and not formula's. This macro gives an option to select the data however one can select only one sheet. Can this be modified to open multiple sheets that i want to paste to the new workbook.
Option Explicit
Sub test()
Dim UserSel As Range
On Error Resume Next
Set UserSel = Application.InputBox( _
Prompt:="Please select the data...", _
Title:="Select a Range", _
Type:=8)
On Error GoTo 0
If UserSel Is Nothing Then Exit Sub
Workbooks.Add (xlWBATWorksheet)
UserSel.Copy
Range("A1").PasteSpecial xlPasteValues
Range("A1").PasteSpecial xlPasteFormats
End Sub
Option Explicit
Sub test()
Dim UserSel As Range
On Error Resume Next
Set UserSel = Application.InputBox( _
Prompt:="Please select the data...", _
Title:="Select a Range", _
Type:=8)
On Error GoTo 0
If UserSel Is Nothing Then Exit Sub
Workbooks.Add (xlWBATWorksheet)
UserSel.Copy
Range("A1").PasteSpecial xlPasteValues
Range("A1").PasteSpecial xlPasteFormats
End Sub
