SteveABC
11-21-2022, 12:18 AM
Hello.
I keep getting the above (title) error message on the below line of code. I've tried a few alternatives but can't seem to get past this error message. Can't think for the life of me what's going wrong. I'm thinking the problem stems from the file name in O6.
File name in Range O6. See Attached.
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAjMAAAA7CAYAAACOnguGAAAGg0lEQVR4nO3dvW7i ShyG8ddHuRTYIsoVDFcANFS029klbrZLuV0aU LutKloYlcp8RWgRIp9DbmFOYVtsAHzkYTdjM7zk5A29ng8wEp 85 J7T2/vlsBAAA46p /PQAAAIDP8CRRmQEAAN/a8 t75z4qMwAAwGk39T spUADAAC F8/zTrahMgMAAJxGmAEAAE4jzAAAAKcRZgAAgNMuDDOpAs T5wVKJUmF5oPmzwAAAH/WgTBTB5T2KyCtAACAb ime5evxC40bG0bamGtFlceFAAAwLkunGY6Z1ppt7Iz0Lz45CgBAAA6fPEC4ELzQV9h5iuxVtZaJ X6msM aGgAAcB1Hwkys0aXVleJJj5kkf7KZnhpOfEmxlqQZAABwBReumTkhf1EmSfFIXvy5gQEAAJzjKv eZMVEuW00z1a/FRakIAADgPF8bZoYT ZKy8IE1MgAA4I/44srMUAubyG tt GmegAA4Ho8SVaSrLV/eSgAAABtnudJkp5f3zvb8GwmAADgNMIMAABwGmEGAAA4bXOfmXpOCgAAwCWbMMMCYAAA8N2cU2x hmgkAADiNMAMAAJzmVphJg/MfegkAAP4X9sJMGrTv2FvMB/I8T4NNgig0H3jygrQKF VdfoPmLX6LuQab7VV7b c1mGs/k6QKGm0G82LTV3DNWwg3xrt5XfWE56g/i/bdk vvY3 Mh9tf2k93/yf8ie8JAIAD9sJM/9ZIWuutShr5SyZJyl7yqkWul0wyt/3qZyNjpHi5vYqlD6EyY2QkST3NVlbW5oqMJBMpt1Z2NVOvdeZUgTdSXO 3uaaPO894Gi5k7Uqz9oFnKi/qgyNlnc0DMhNfin9fuQJ0ZDzFXANvqdvI7BwS6Kf lbVWia/tGLvaX9pP13YAAL6xvTDTG09llKnMLoXe1tWOeFkGi JNaxlNx9tEMZ362/1KtYwlfzq9bCTpUrEk/74OOT3NVgu1Hra989t/q4pQV3rSQJ4XKAia2wvNByPFkrKw31EVapxm86ZPnGcw1zzYf/5UGhyoQLXGNdDg2Hh6M63sQuPdgQ0XWlVJbjjxpfp76mp/aT9d2/c i3qqryuQtStsQXrucQAAXG5/zUzvh 5UVVqKJz1mRlHkq67WFE PynSnH83qyHgiX7GWqapQ4muydwU9rgwQvibDk01LaaB eKfEWlmbyM9C/dxcHGNpYmXzSCYL9ZD2NFsl8lVVX/aqQqUs7MvzPPVDKcqrCtCx82ShHm/z8jyK9XteSGmgUWwU5dvzN8cVK5G1K63OGM/Rt7 ML/u8Luyna3tvdi9fmcKHVGlQVtL 3SmVFfPfjQqb1WJ43nEAAHzEgQXAQ018Ses3FflLGVzGtzLK9PhUlNNO/qRdMVFft9VUU7qMD z/emX4qZ/OXVY5tow2s2AXMFEdTMr3es55puPeJgBmL3n5/s1U456k3lhT05yiM4p fcEnkwYaxZKfLD73OXf1c7T/oX5FRopHZZv7/SDW 3EnZaH6rcXap48DAOAjDv41U//WSNmLnt7WZTDZXJSf9LZurpep9TSebi9U /vPtV2rcx6/qpiUr9VX/Kbfm nel7KwuV7nCuf5qGKuwSiWiXItPpNkuvq5sP/1oS9suKjWSGUK 4enkw4eBwDABxwMM W6mVhhmFXBpKcfd5LiUGHWXi/TPkaSDu8/ZTMN8XO7fiQNdv8yp9G HJCWV/jrmXK9SNn38fNUFZziTWtJ/mRYBcFHPRWqpunK7V8jVdAPlfnJJwNVVz8d26u1SmUoSfUQZjJRosjshr66eaB50dNsVS36rvo dRwAAB9lJdm2xPrVdj pN/m2bOvbxDa3GRvl1lqb28jIykS2/DGypnn87v5DqmPqMZkob/ez02fib9tuxtocU1f73TFU7UxUb63ef3XgsfMYs99nq/325I3P6rzxaOezyCPT2rbpv6P9pf2c6n97bPV/oO6/0ab5PTX/v3QeBwDAEfX16Pn1vfPlVY14NtOl0kDeaL1dKAwAAL5c/Wym59f3zjZu3QEYAABgB5UZAADwbZ1TmbnZbQwAAOASppkAAIDTbo6VbQAAAL47KjMAAMBphBkA AOA0wgwAAHAaYQYAADiNMAMAAJxGmAEAAE4jzAAAAKcRZgAAgNMIMwAAwGmEGQAA4DTCDAAAcBp hBgAAOI0wAwAAnEaYAQAATiPMAAAApxFmAACA0wgzAADAaf8BJd1xFXpMgpUAAAAASUVORK5CYI I=
Dim formattedCurrentDate As String
formattedCurrentDate = Format(Date, "dd-mm-yyyy")
Dim FName As String
Dim FPath As String
Dim Newbook As Workbook
Dim filename As String
Dim WB As Workbook
ActiveSheet.Unprotect
Sheets("SUMMARY").Select
ActiveSheet.Unprotect
Sheets("TOTAL WEEK").Select
ActiveSheet.Unprotect
Sheets(Array("SUMMARY", "TOTAL WEEK")).Select
Sheets(Array("SUMMARY", "TOTAL WEEK")).Copy
Sheets("SUMMARY").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("TOTAL WEEK").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
FPath = "Q:\Finance\Accounts\Finance\CASH, BANK and LOANS\Client Account Reconciliations\Solutions Client accounts\TOCS\Client Reports\WMT\Client Reports"
FName = Range("O6")
Set WB = ActiveWorkbook
WB.SaveAs filename:=FPath & FName & ".xlsx", FileFormat:=1
WB.Close
I keep getting the above (title) error message on the below line of code. I've tried a few alternatives but can't seem to get past this error message. Can't think for the life of me what's going wrong. I'm thinking the problem stems from the file name in O6.
File name in Range O6. See Attached.
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAjMAAAA7CAYAAACOnguGAAAGg0lEQVR4nO3dvW7i ShyG8ddHuRTYIsoVDFcANFS029klbrZLuV0aU LutKloYlcp8RWgRIp9DbmFOYVtsAHzkYTdjM7zk5A29ng8wEp 85 J7T2/vlsBAAA46p /PQAAAIDP8CRRmQEAAN/a8 t75z4qMwAAwGk39T spUADAAC F8/zTrahMgMAAJxGmAEAAE4jzAAAAKcRZgAAgNMuDDOpAs T5wVKJUmF5oPmzwAAAH/WgTBTB5T2KyCtAACAb ime5evxC40bG0bamGtFlceFAAAwLkunGY6Z1ppt7Iz0Lz45CgBAAA6fPEC4ELzQV9h5iuxVtZaJ X6msM aGgAAcB1Hwkys0aXVleJJj5kkf7KZnhpOfEmxlqQZAABwBReumTkhf1EmSfFIXvy5gQEAAJzjKv eZMVEuW00z1a/FRakIAADgPF8bZoYT ZKy8IE1MgAA4I/44srMUAubyG tt GmegAA4Ho8SVaSrLV/eSgAAABtnudJkp5f3zvb8GwmAADgNMIMAABwGmEGAAA4bXOfmXpOCgAAwCWbMMMCYAAA8N2cU2x hmgkAADiNMAMAAJzmVphJg/MfegkAAP4X9sJMGrTv2FvMB/I8T4NNgig0H3jygrQKF VdfoPmLX6LuQab7VV7b c1mGs/k6QKGm0G82LTV3DNWwg3xrt5XfWE56g/i/bdk vvY3 Mh9tf2k93/yf8ie8JAIAD9sJM/9ZIWuutShr5SyZJyl7yqkWul0wyt/3qZyNjpHi5vYqlD6EyY2QkST3NVlbW5oqMJBMpt1Z2NVOvdeZUgTdSXO 3uaaPO894Gi5k7Uqz9oFnKi/qgyNlnc0DMhNfin9fuQJ0ZDzFXANvqdvI7BwS6Kf lbVWia/tGLvaX9pP13YAAL6xvTDTG09llKnMLoXe1tWOeFkGi JNaxlNx9tEMZ362/1KtYwlfzq9bCTpUrEk/74OOT3NVgu1Hra989t/q4pQV3rSQJ4XKAia2wvNByPFkrKw31EVapxm86ZPnGcw1zzYf/5UGhyoQLXGNdDg2Hh6M63sQuPdgQ0XWlVJbjjxpfp76mp/aT9d2/c i3qqryuQtStsQXrucQAAXG5/zUzvh 5UVVqKJz1mRlHkq67WFE PynSnH83qyHgiX7GWqapQ4muydwU9rgwQvibDk01LaaB eKfEWlmbyM9C/dxcHGNpYmXzSCYL9ZD2NFsl8lVVX/aqQqUs7MvzPPVDKcqrCtCx82ShHm/z8jyK9XteSGmgUWwU5dvzN8cVK5G1K63OGM/Rt7 ML/u8Luyna3tvdi9fmcKHVGlQVtL 3SmVFfPfjQqb1WJ43nEAAHzEgQXAQ018Ses3FflLGVzGtzLK9PhUlNNO/qRdMVFft9VUU7qMD z/emX4qZ/OXVY5tow2s2AXMFEdTMr3es55puPeJgBmL3n5/s1U456k3lhT05yiM4p fcEnkwYaxZKfLD73OXf1c7T/oX5FRopHZZv7/SDW 3EnZaH6rcXap48DAOAjDv41U//WSNmLnt7WZTDZXJSf9LZurpep9TSebi9U /vPtV2rcx6/qpiUr9VX/Kbfm nel7KwuV7nCuf5qGKuwSiWiXItPpNkuvq5sP/1oS9suKjWSGUK 4enkw4eBwDABxwMM W6mVhhmFXBpKcfd5LiUGHWXi/TPkaSDu8/ZTMN8XO7fiQNdv8yp9G HJCWV/jrmXK9SNn38fNUFZziTWtJ/mRYBcFHPRWqpunK7V8jVdAPlfnJJwNVVz8d26u1SmUoSfUQZjJRosjshr66eaB50dNsVS36rvo dRwAAB9lJdm2xPrVdj pN/m2bOvbxDa3GRvl1lqb28jIykS2/DGypnn87v5DqmPqMZkob/ez02fib9tuxtocU1f73TFU7UxUb63ef3XgsfMYs99nq/325I3P6rzxaOezyCPT2rbpv6P9pf2c6n97bPV/oO6/0ab5PTX/v3QeBwDAEfX16Pn1vfPlVY14NtOl0kDeaL1dKAwAAL5c/Wym59f3zjZu3QEYAABgB5UZAADwbZ1TmbnZbQwAAOASppkAAIDTbo6VbQAAAL47KjMAAMBphBkA AOA0wgwAAHAaYQYAADiNMAMAAJxGmAEAAE4jzAAAAKcRZgAAgNMIMwAAwGmEGQAA4DTCDAAAcBp hBgAAOI0wAwAAnEaYAQAATiPMAAAApxFmAACA0wgzAADAaf8BJd1xFXpMgpUAAAAASUVORK5CYI I=
Dim formattedCurrentDate As String
formattedCurrentDate = Format(Date, "dd-mm-yyyy")
Dim FName As String
Dim FPath As String
Dim Newbook As Workbook
Dim filename As String
Dim WB As Workbook
ActiveSheet.Unprotect
Sheets("SUMMARY").Select
ActiveSheet.Unprotect
Sheets("TOTAL WEEK").Select
ActiveSheet.Unprotect
Sheets(Array("SUMMARY", "TOTAL WEEK")).Select
Sheets(Array("SUMMARY", "TOTAL WEEK")).Copy
Sheets("SUMMARY").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("TOTAL WEEK").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
FPath = "Q:\Finance\Accounts\Finance\CASH, BANK and LOANS\Client Account Reconciliations\Solutions Client accounts\TOCS\Client Reports\WMT\Client Reports"
FName = Range("O6")
Set WB = ActiveWorkbook
WB.SaveAs filename:=FPath & FName & ".xlsx", FileFormat:=1
WB.Close