Re: Next Available Cell Row
Sorry to keep bugging you with this!
below is my code, the macro sees the stats_**_**_**.xls sheet but doesnt copy from it, it just copies from whatever workbook is open (always the one with the start macro button on)
anyone got any tips?
(thanks to everyone that has helped so far - you have been great!)
Code
Sub Macro11()
Dim Wbk As Workbook
Dim WbkToCopyFrom As String
Dim Response1 As VbMsgBoxResult
Response1 = vbNo
For Each Wbk In Application.Workbooks
If InStr(1, LCase(Wbk.Name), "stat") > 0 Then
Response1 = MsgBox("Is " & Wbk.Name & " the workbook you wish to copy from?", vbYesNo, "Select Workbook")
If Response1 = vbYes Then Exit For
End If
Next Wbk
WbkToCopyFrom = Wbk.Name
Range("A4:N4").Select
Selection.copy
Dim EmpRow As Range
Dim PrinttoRow As Integer
Set EmpRow = Workbooks("1.xls").Sheets("Front Sheet").Columns(1).Find("", _
After:=Workbooks("1.xls").Sheets("Front Sheet").Cells(1, 1), LookAt:=xlWhole)
PrinttoRow = EmpRow.Row
End Sub
Display More