Hello Everybody,
Thank you everybody in this forum, for giving us chance to learn something.
and I have this below code everything working perfectly for me, but I need help with if user dont select any file. it shows error message. how can I avoid this error message.
Sub myTest()
Dim Wbk As Workbook
Dim wSht As Worksheet
Dim copyRange As Range
Set wSht = ActiveSheet
Application.ScreenUpdating = False
wSht.Range("C10", Range("C" & Rows.Count).End(xlDown)).Cut wSht.Range("D10")
wSht.Range("B10", Range("B" & Rows.Count).End(xlUp)).Offset(, 1).Select
Selection.Value = Date
Set copyRange = wSht.Range("A10:D" & Range("A65536").End(xlUp).Row)
copyRange.Copy
Set Wbk = Workbooks.Open(Application.GetOpenFilename)
If Wbk <> False Then Exit Sub
With ActiveSheet
.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
Set Wbk = Nothing
End Sub
Bookmarks