Over My Head... Trying to open "Saveas" and prefill name based on Concat cell.

[Brassaxe]

I am trying to have Excel open a save as and prefill the name based on a concat cell, but NOT prefill the location.
I am good with excel but the VBA is going over my head. This is what I have

Sub SaveFile()
Dim NameFile As Variant
With Worksheets("Settings")
NameFile = .Range("X2") & ".xlsm"
End With
ThisWorkbook.SaveAs FileName:=NameFile
End If
End Sub

 

[mumps]

I tested the macro and it worked properly. What do you have in X2?

 

[Brassaxe]

I tested the macro and it worked properly. What do you have in X2?

Oh Jeez. So sorry I had X4 populated not X2. I tried it and it works perfectly! Thank you! It's so much better than I thought it was going to be.

Genuinely, Thank you.

 

[mumps]

You are very welcome.