Why doesn't this work?
Sub DuesSheet()
Dim vLine As String * 3
vLine = InputBox("Enter Line Number", Value, "2-139")
Sheets("Members").Select
Range("A" & vLine).Select
Selection.Copy
Sheets("Form").Select
Range("F30").Select
ActiveSheet.Paste
End Sub
I'm placing a number in a input box, then going to the members sheet, selecting cell A & the line number, copying contents, then going to the form sheet, cell F30, to paste what was copied. It seems like a simple task, but has been driving me crazy. 14 years since I wrote code and was a novice back then. Please help.
Sub DuesSheet()
Dim vLine As String * 3
vLine = InputBox("Enter Line Number", Value, "2-139")
Sheets("Members").Select
Range("A" & vLine).Select
Selection.Copy
Sheets("Form").Select
Range("F30").Select
ActiveSheet.Paste
End Sub
I'm placing a number in a input box, then going to the members sheet, selecting cell A & the line number, copying contents, then going to the form sheet, cell F30, to paste what was copied. It seems like a simple task, but has been driving me crazy. 14 years since I wrote code and was a novice back then. Please help.