Vba code not fully working if in other sheet or adjacent sheet

[muhammad susanto]

hi all..
i have code that working properly only in one sheet (left sheet).
if i run the code in the other sheet (adjacent sheet) the macro not fully working
this code function can to get file name and date modified from a folder
in left sheet or first sheet "file name & date modified from a folder" can be extracted but in adjacent sheet only "file name" can be extracted
how to fit it? the code can running well in different sheet.
here this code :

Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
Dim cell As Range, fso As Object

InitialFoldr$ = "x:\t\" '<<< Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 1)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With

Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each cell In Range(ActiveCell, ActiveCell.Offset(xRow))
cell.Offset(0, 1).Value = fso.getfile(xDirect$ & cell.Value2).DateLastModified
Next cell
Set fso = Nothing
On Error GoTo 0
End Sub

i hope someone would help out this problem..
any help, greatly appreciated.
.sst

 

[Alex Blakenburg]

I am sorry I am unable to reproduce your problem. It works fine for me.
It consistently gives me 2 columns Filename & Date modified.
Even when I selected group sheets it ran fine putting the data on the sheet Excel considered to be the active one out of the group.

 

[muhammad susanto]

thank Alex...but that not work for me
like this : example i have 3 sheets, in sheet1 the code work fine (can extract "file name and date"- my expected] otherwise in sheet2 or sheet3 can extract only "file name"

 

[Alex Blakenburg]

Grasping at straws here but you have the code in a standard module right (not in a sheet) ?

 

[Alex Blakenburg]

I can't get it to fail. I assume you don't have a hidden column next to your activecell on sheets 2 and 3.

 

[Fluff]

What happens if you remove this line

On Error Resume Next

 

[muhammad susanto]

What happens if you remove this line

On Error Resume Next

after deteled :
showing " 400" and the date not show too

 

[Fluff]

What do you mean?

 

[muhammad susanto]

after delete On Error Resume Next
then run the code the result show number 400 and still date not show

 

[Fluff]

Can you answer Alex's question in post#4?