pause then continue

[Trevor3007]

hi,

this is my current code:

'
' importdata Macro
''workbooks("lap_lookup.xlsm").sheets("info").unProtect
    Workbooks.Open Filename:="C:\123\123_data.xlsx"
    Range("A2:H3007").Select
    Selection.Copy
    Windows("123_lookup.xlsm").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Windows("123_data.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
     If MsgBox("Do You Want A Border Placed Around This Worksheet", vbYesNo + vbQuestion) = vbYes Then
     Range("A1:N3007").Select
     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
     With Selection.Borders(xlEdgeLeft)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeTop)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeBottom)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeRight)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
     End With
     With Selection.Borders(xlInsideVertical)
     .LineStyle = xlContinuous
     .ColorIndex = 0
    .TintAndShade = 0
     .Weight = xlThin
     End With
     With Selection.Borders(xlInsideHorizontal)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
     End With
     Range("A2").Select
     Range("I1:I3007").Select
     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
     Selection.Borders(xlEdgeLeft).LineStyle = xlNone
     Selection.Borders(xlEdgeTop).LineStyle = xlNone
     Selection.Borders(xlEdgeBottom).LineStyle = xlNone
     Selection.Borders(xlEdgeRight).LineStyle = xlNone
     Selection.Borders(xlInsideVertical).LineStyle = xlNone
     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 End If
  Range("A2").Select
 MsgBox "End Of Macro,Please Save The File To An Area Of your Choice If You Are Finished or Rerun Again."
 Workbooks("l123_lookup.xlsm").Sheets("info").Protect
 End Sub

I need to advise the user that they need to 'unprotect' the worksheet before continuing then press 'ok' to continue.
Have checked mrexcel site & the web but all seems rather long winded or not applicable.

many thanks for your help.
KR
Trevor3007

'

 

[Trevor3007]

Thank you very much.

I want to place a 'input box' and with a message for the user to input applicable data ( into cell B2).


The code below & I have tried to sort myself..but nope :{

could you kindly assist and place the applicable into ...can be either at the start or the end. Hope you don't mind me asking.

KR
Trevor3007