

SheetName = RTrim(Left(FilterRange.Value, 31)) WsFilter.Range("B2").Value = FilterRange.Value WsFilter.Range("B1").Value = wsFilter.Range("A1").Valueįor Each FilterRange In wsFilter.Range("A2:A" & rowcount) Rowcount = wsFilter.Cells(, "A").End(xlUp).Row

Columns.Count).End(xlToLeft).ColumnĮrr.Raise 65000, "", "FilterCol Setting Is Outside Data Range.", "", 0 Cells(.Rows.Count, FilterCol).End(xlUp).RowĬolcount =.
#Create new tab in total commander password
Unprotect Password:="" 'add password if needed Set objRange = Application.InputBox("Select Field Name To Filter", "Range Input",, ,, ,, 8)

Thanks for any help - I have little experience with coding or vba, so anything is much appreciated.ĭim ws1Master As Worksheet, wsNew As Worksheet, wsFilter As Worksheetĭim Datarng As Range, FilterRange As Range, objRange As Rangeĭim colcount As Integer, FilterCol As Integer, FilterRow As Long The sheet would be continually updated, so it would make sense if each time the macro was run, the information was wiped and recreated.
