DanOfEarth
06-27-2010, 07:42 AM
I definitely knew this was wrong before I wrote it, but I can't seem to grasp what the syntax should be.
I need to use the InputBox value for the Row#....
Sub ImportData()
Dim FileName As String
Dim filepath As String
Dim MyRow As Integer
MyRow = InputBox("What Row Number?")
Application.ScreenUpdating = False
Workbooks.Open ("C:\Documents and Settings\Dan\Desktop\SSInfo.xls")
Worksheets("Sheet1").Range("B2:AA2").Copy _
ThisWorkbook.Activate
ActiveWorkbook.Worksheets("Import").Range("B"&"MyRow":"AA"&"MyRow").Paste
Application.ScreenUpdating = True
End Sub
I've done this many times before....or maybe I should use the "cell" methods....
I need to use the InputBox value for the Row#....
Sub ImportData()
Dim FileName As String
Dim filepath As String
Dim MyRow As Integer
MyRow = InputBox("What Row Number?")
Application.ScreenUpdating = False
Workbooks.Open ("C:\Documents and Settings\Dan\Desktop\SSInfo.xls")
Worksheets("Sheet1").Range("B2:AA2").Copy _
ThisWorkbook.Activate
ActiveWorkbook.Worksheets("Import").Range("B"&"MyRow":"AA"&"MyRow").Paste
Application.ScreenUpdating = True
End Sub
I've done this many times before....or maybe I should use the "cell" methods....